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ABSTRACT 


A full-screen, scrollable spreadsheet-like editor written in the APL2 language is de- 
scribed for inputting, examining, and outputting data. Mixed numeric and character arrays 
can be read into or read out to formatted or comma delimited ASCII files. Alternatively 
a bulk mode input facility allows for rapid direct data entry, or data can be examined and 
edited cell-by-cell in the usual way. Columns, rows or blocks of data can be highlighted 
in a chosen color, shadowed, moved or copied. In addition APL functions entered on a 
command line can use the blocks as input or output. A facility for coding missing values is 
also provided. Output is obtained as a new spreadsheet, or equivalently as an APL2 matrix. 
In particular two-way cross-tabulations of multiple columns are laid out in the spreadsheet 
like draftsmen’s plots to facilitate investigation and explanation of multivariate categorical 
data. No numerical coding of the data is needed. Flexible printing of arrays 1s provided, as 
well as lexicographic sorting of rows. 

A specific application of the techniques and the APL2 program is made to a database 
constructed with the author’s assistance and maintained by the Defense Personnel Secunty 
Research and Education Center (PERSEREC), Monterey, California. This database is the 
basis of a large scale study of the Special Background Investigation. The study is designed 
to evaluate the productivity of investigative sources in developing the necessary information 


to determine eligibility for access to Sensitive Compartment Information. 
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THESIS DISCLAIMER 


The reader is cautioned that computer programs developed in this research may not 
have been exercised for all cases of interest. While every effort has been made, within the 
time available, to assure that the programs are free of computational and logical errors, 
they cannot be considered validated. Any application of these programs without additional 


verification is at the risk of the user. 
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I. INTRODUCTION 


A. GENERAL OUTLINE 
This thesis has two aspects. The first aspect is the writing of a full-screen, spreadsheet- 


like data editor written in the APL2 language to perform preliminary numerical analysis 
for categorical data. APL2 is the IBM Corporation’s implementation of some modern APL 
concepts. The second aspect of the thesis is the application of this editor to a large database 
consisting mostly of character data. 

Categorical (or categorized) data are data which are presented in the form of attributes 
falling into certain categories or classes. A categorized variable may simply be a convenient 
classification of a measurable variable into groups. On the other hand, it may not be 
expressible in terms of an underlying measurable variable at all. For example, we may 
classify people by (a) their sex, (b) their hair color, (c) their height; (c) is a categorization 
of a measurable variable, but (a) and (b) are not. Also the hair color may be expressed on 
an ordered scale from light to dark; this 1s not so for (a). (a) 1s referred to as an unordered 
classification and (b) as an ordered one (Ref. 1: p. 536]. An extreme case of an unordered 
classification would be simply a labelling of different samples. 

To assist the statistician in examining a set of categorical data, an APL2 workspace, 
UEDIT, has been written to permit the analysis in a flexible and consistent way of all types 
of classification by means of recoding, sorting, frequency counting, crosstabulation and con- 
tingency table analysis. The use of this workspace and the computer system requirements 
are described in Appendix C. 

The second aspect of this thesis is the specific application of the UEDIT workspace toa 
database consisting of character and numerical data. This database was constructed, with 
the author’s assistance, and is maintained by Dr. Ralph Carney at the Defense Personnel 
Security Research and Education Center (PERSEREC) in Monterey, California. It is the 
basis of a large scale study designed to evaluate the productivity of investigation sources in 
developing the necessary information needed to determine eligibility for access to Sensitive 


Compartmented Information (SCI). At this time the database consists of 1173 issue cases 


where each case contains 64 fields of information; the total number of cases is projected to 


be 15,000. 


B. PURPOSE OF THE THESIS 


The purpose of this thesis is twofold: first, to make a contnbution to increased pro- 
ductivity during personnel security investigations, and second, to make a contribution to 
analytical and computational methodology by bringing together in one package various 


statistical and computational techniques not available elsewhere. 


1. Contribution to Increased Productivity 
Special Background Investigation (SBI) is a main component in the process of 
determining the eligibility for access to Sensitive Compartmented Information. This inves- 
tigation has to cover a long time in the life of the individual and is expensive. The DCI 
Personnel Security Working Group (PSWG) is examining the investigative requirements in 
a large scale study to make a 99% risk assessment on the length of coverage required and to 
evaluate the productivity, i.e., the importance and usefulness, of the information provided. 


The study will involve 15,000 issue cases in its final stage. 


2. Contribution to Analytical Methodology 

There is a great number of statistical software on the market today. The most 
popular programs, including STATGRAPHICS, SAS, SPSS/PC+ and MINITAB, are all 
adept at numerical methods. However no one program has a convenient method for tabu- 
lating frequency counts, crosstabulation, aggregation of classes of frequencies and recoding 
of character-based categorical data. The UEDIT APL2 workspace written for this thesis has 
these capabilities and allows the user to work in a consistent way with one spreadsheet-like 
matrix containing all the data. 

Several functions of the UEDIT workspace are not found in other statistical pack- 
ages. These functions include the ability to enter new data or change existing data manually 
in a bulk mode or to import data from formatted or comma delimited ASCII files or, with 
a separate utility function, data files created by STATGRAPHICS. Columns of data can 
be easily recoded to provide more meaningful labels. Major-to-minor (lexicographic) sorts 


can be performed on selected columns, conditional and unconditional frequency tabulations 


and crosstabulations can be performed. During these tasks classes of a categorical variable 
can be aggregated (pooled) interactively. This is an important part of contingency table 
analysis, and no other statistical package provides the facility for doing this which is found 
in UEDIT.’ The contingency table analysis is performed automatically after each aggrega- 
tion step. All output is obtained as a new spreadsheet, or equivalently as an APL2 matrix, 


which is overlaid over the original data and can be edited in the usual way. 


C. COMPUTATIONAL TOOLS 

The APL2 programming language was chosen for the software development because of 
its compact code and its ability to handle mixed data arrays, 1.e., data in vector or matrix 
form where each element may be numeric or of character type. Subroutines that take many 
lines of code in languages ike FORTRAN can usually be accomplished with a single line 
of APL2 code. It is also much easier, due to the organization of an APL2 workspace, to 
structure large programs by performing certain tasks within subfunctions which can be 
tested and debugged alone, without the need to recompile the complete program. 

The APL2 interpreter used for this thesis is APL2/32 for the IBM PC (version 1.02) 
developed by IBM. This interpreter requires a personal computer based on the 80386 micro- 
processor and the 80387 mathematical coprocessor. Its primary advantage is the ability to 
use all available random access memory (RAM) without the 640 KB limitation imposed by 
DOS*. However, UEDIT will also work under IBM’s APL2/PC which runs on 8086 and 80286 
computers. The package uses several Auxiliary Processors for file and full-screen display 
management and for printing. The use of STSC’s APL*PLUS II was considered but was 
rejected because of APL2’s more economic memory management, language combatibility 
to the mainframe version of APL2 and the availabilty of a graphics package, GRAFSTAT, 


for microcomputers in the near future. 


1 For instance, the popular program STATGRAPHICS does not provide for aggregation in its 
contingency table routines. This gap was filled by Ian H. Keith with his APL*PLUS workspace 
ANALYZE. [Ref. 2] 


2 The term “DOS” is used throughout this thesis as a synonym for both the Microsoft Disk 
Operating System (MS-DOS®) and the IBM Personal Computer Disk Operating System (PC- 
DOS®). 


The UEDIT workspace does not require any additional software. However, the PC- 
version of GRAFSTAT which will be released in the near future will provide useful functions, 
especially for graphical analysis. A fundamental function to export data to GRAFSTAT is 
implemented into UEDIT. In the meanwhile, a statistical package written by Mr. Norman 
Thomson of the IBM Winchester Laboratories provides a flexible source of routines for use 
with UEDIT. 

In a similar way an interface is provided to StatXact, a statistical software package for 
exact nonparametric inference from Cytel Software Corporation. This interface writes data 


columns to disk in a format which can be read by StatXact. 
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Press Enter to change field values 


VEdit 1.00 SBI (861;13] 





Figure 1. Sample UEDIT Full-Screen Data Editor Display: It shows a part of the 
SBI database with row and column labels. The bottom four lines show the 
status line with name and size of the edited matrix, the message line where 
UEDIT displays its prompts and error messages, the user input line and the 


types and widths of the matrix columns. 


Il. ANALYSIS OF CATEGORICAL DATA 


A. CODING TECHNIQUES 

Categorized data may be represented in character or numerical form. Some statistical 
software packages require that the data to be analyzed have numerical form. Therefore 
certain attributes in a database have to be recoded by a numeral. For example, in a data 
column denoting the marital status of an individual, stngle may be coded as “1”, married 
as “2”, divorced as “3” and so on. The absence of an attribute (“unknown” value) could 
be coded as “0”. Normally a character representation 1s preferred because very often the 
context cannot be inferred from the numerical representation alone without the help of an 
additional list explaining the various codes. 

UEDIT does not require any numerical coding because each column of a database can 
contain character data of arbitrary width, or numerical data in fixed decimal, floating point 
or date representation. For example, the marital status in the SBI database is denoted by 
“Single”, “Married”, “Divorced”, “Separated”, “Widowed”, or a blank field if the status 
is not known. This approach makes it easy to make accurate inferences and to avoid the 


confusion which might occur when handling large databases containing only numeric codes. 


B. FREQUENCY COUNTS 

Frequency counting 1s the determination of the unique elements of an attribute and 
the number of occurrences of each of those elements. The preferred method for computing 
the frequency counts 1s to sort the elements of a sample of size n numerically or lexico- 
graphically. Then the first element in the ordered list is used as a label and the list is 
searched until an element k 1s found which 1s not equal to element 1. Now there are k — 1 
occurrences of element 1 and element k becomes the next unique element. This procedure 
is repeated until the list is exhausted. The result is a vector {f;, 1=1,...,r} of frequencies 


of r unique elements in the sample. A simple implementation in APL2 may look like 


I+(Ue+U[sort ((pU),1) pUe((AvA)=1pA)/A]) 2A 
F+ (pU) pO 


F[A/T]+B-(pB)p0, Be (A+ (~141#10I) ,1)/r1pIeI Tb] 


which takes a vector A of character elements and creates a new vector U which consists of the 
unique elements of A and a numerical vector F which contains the number of occurrences 
of each element of U. In line 1 sort 1s a subfunction which sorts the elements of U in any 
desired order (ascending or descending, case sensitive or case insensitive). 

From these (absolute) frequencies f; relative frequencies r; = f;/n and cumulative 


frequencies ¢; = ee f; can easily be calculated by 


R+F/pF 
Ce+\F 


All theses values are automatically calculated by UEDIT whenever a frequency count 


is performed. 


C. CROSSTABULATION 


Crosstabulation is an extension of frequency counting to two-dimensional samples. 
Two categorized variables with equal number n of elements in a one-to-one correspondence 
are crosstabulated in the following way. Assuming they have r and ¢ unique elements, 
respectively, then for each unique element 1 of the first variable a separate frequency count 
for the number of occurrences of each unique element 7 of the second variable is performed. 


This results in a matrix of observed frequencies 


it Res gy MO 
Aig RE «xs Re * 
which 1s also known as a contingency table. 

The n;. = )05., ij are called row sums or row marginals, the n.; = }°f_, i; are 
called column sums or column marginals. They represent the frequency counts of both 
elements by its own, 1.e., marginal totals. Again, n is the sample size. 

A very efficient method to implement a crosstabulation into a computer program is 
the two-way plus reduction (Ref. 3: p. 97]. It replaces the indices : = 1,...,r of the 


unique elements of the first variable by t’ = c(t — 1) where c again is the number of 


unique elements of the second variable. Then k = 1’ + is unique for all 1 = 1,...,r 
and 7 = 1,...,c, and a vector {f,, k = 1,...,rc} can be constructed using a frequency 
tabulation as described before, which consists of the combined frequencies of both variables. 
By reshaping this vector into a r x c matrix a contingency table is obtained to which a row 


of column marginals and a column of row marginals can be added. 


D. CONTINGENCY TABLE ANALYSIS 

Contingency table analysis is a statistical method to measure and test the interdepen- 
dence of two categorized variables, or, as it is generally known, the problem of assoctatton. 
(Ref. 1: p. 536] 

When observations are based on a nominal measurement scale, i.e., have no natural 
numeric value, distributional measures such as mean or variance are undefined. Association, 
1.e., dependence, of categorized variables cannot be measured by moments based on a joint 
probability distribution [Ref. 4: p. 14]. The method of contingency table analysis is very 
useful for the analysis of associations of categorized variables. It uses the contingency table 


created by a crosstabulation of two elements. 


1. The Chi-Square Test for Independence 
Let the observations of a random sample of size n be classified according to two 
criteria, so that each observation is associated with one of r classes of criterion 1 and one 
of c classes of criterion 2. Let n;; be the number of observations associated with class 1 of 
criterion 1 and class 7 of criterion 2. Then the n,; can be arranged in an r xc contingency 
table as defined in section C. 


The assumptions being made are 


1. The sample of n observations is a random sample, 1.e., each observation has the same 
probability as every other observation of being classified in row : and column j, 
independently of the other observations. 


2. Each observation may be classified into exactly one of r different categories according 
to one criterion and into exactly one of c different categories according to the second 
criterion. [Ref. 5: p. 155] 


Then the null hypothesis can be stated as 


Ho: The event “an observation is in row 2” is independent of the event “that same 
observation is in column 7”, for all + and 3. 


against the alternative 


H,: There is lack of independence, i.e., an association exists between at least one 
column and one row. 


By the definition of independence of events, the hypotheses may be stated as 

follows 

Ho: = Pig = Di-P.j for all 2,7 

Ay: pi FDLD5 for some 2,9 
where p;; 1s the probability that an observation is in row 2 and column 7, and p,. and p.; 
are the marginal probabilities of observations in row 1 and column 7 respectively. 

The most common test statistic for this hypothesis is given by 

2_ Wow (ni — ei)? 
xX’*= Xd = 
where n,; are the observed frequencies in row z and column 7 and the e,; denote the 
expected frequencies in row t and column 7 defined by 
Here n,;. and n.; are the row and column marginals, respectively, and n the total number 
of observations. 

As n — oo, X? is asymptotically distributed as a y? random variable with 
(r —1)(c — 1) degrees of freedom [Ref. 5: p. 156]. Hence the decision rule is to reject Ho 
if X? exceeds the 1 — a quantile of a x” random variable with (r — 1)(c — 1) degrees of 
freedom where “a is the mazimum probability of rejecting Hp when Ho is true” [Ref. 5: 
p. 79]. Equivalently the minimum probability of accepting Hp, making the correct decision, 
is 1—a. The quantity a is usually called the level of significance. 

The value a = & such that X? equals the 1— 4 quantile of a x? distribution is 
called the critical value or p-value. That is, “& is the smallest significance level at which 
the null hypothesis would be rejected for a given observation”. [Ref. 5: p. 81] 

However it is important to keep in mind that X®? is only a test value for the 


null hypothesis and not a measure of the degree of dependence or independence. Greater 


values of X* do not necessarily imply greater dependence. For a discussion of an adequate 
measurement of the degree of dependence see Goodman and Kruskal [Ref. 6]. 
2. Residual Analysis 
If the null hypothesis is rejected, i.e., if the test statistic X? exceeds the 1 —a 
quantile of the corresponding x* distribution the question arises which combinations of the 
two variable categories contribute to this decision. The standardized residuals of observed 


frequencies, defined by 


Ny -~ C35 
vei; 


are useful in this regard as “large” values are an indicator of the degree of contribution. 


a5 = 


Note that X? is equal to the sum over all ¢ and j of z?,. [Ref. 7: p. 348] UEDIT uses 
the built-in shadowing capability to highlight two categories of extremely large residuals to 


help in their visual recognition. 


E. AGGREGATION OF CATEGORIES 

An area of ongoing research 1s the minimum expected frequency that should occur in 
a contingency table for the asymptotic distribution theory of the x? test statistic to be 
valid. If the e;; are “too small” then the test statistic X? is not well approximated by a x? 
distribution. Cells with small expectation “are less informative than cells with expectation 
greater than, say, 3”. If e;; < 2 “the lowest count of 0 1s not improbably low, and the only 
way for the count to differ ‘significantly’ from e,; is by being too high”. (Ref. 7: p. 291] 

One common rule is that no cell should have an expected frequency less than 1 and 
no more than 1/5 of the cells should have an expectation less than 5. If x? has only 1 
degree of freedom, 1.e.,in a 2 x 2 table, no cell should have an expectation less than 5 and 
the total number of observations should be at least 30. [Ref. 8: p. 334] 

Another rule uses the average expected frequencies rather than the minimum expec- 
tations. The average expected frequency F, is defined as the ratio of the sample size to the 


number of cells, 1.e., 


The recommendations are 


1. If a = .05 and cells are equiprobable, then & > 1. 
2. If a = .01 and cells are equiprobable, then FE > 2. 


3. If the cells are not equiprobable then average expectations should be doubled, i.e., 
E> 2 for a= .05,and FE >4 for a=.01. (Ref. 9: p. 758) 


If these conditions are not met groups with low expectations should be aggregated 
(pooled) to raise the accuracy of the analysis if an aggregation is feasible. That is, rows 
or columns with similar context are merged to increase the cell expectation. In most cases 
aggregation will affect the critical level &@ and may even change the decision whether to 
reject or accept the null hypothesis. UEDIT leaves the judgment regarding the feasibility 
of an aggregation and the validity of the test to the user, but allows an aggregation of any 


classes of a variable and then performs the necessary recalculation automatically.° 


F. DRAFTSMAN’S TABLES 

Contingency tables as described before are also called two-way contingency tables 
where the term “two-way” refers to the number of dimensions of the table or equivalently to 
the number of variables crosstabulated. An extension may be made to increase the number 
of variables to three or more which leads to an n-way contingency table with n dimensions 
(Ref. 5: p. 165]. For example, in the SBI database one might be interested whether the 
variables GENDER, MARITAL and EDUCATION are independent. This would result in 
a contingency table with r = 2 rows, c= 5 columns and 6 = 5 blocks and a test statistic 
X?* with a summation over all r x c x b cells. X* is then tested for significance using the 
x? distribution with (r — 1)(c — 1)(b—1) degrees of freedom. 

However, with the number of dimensions the difficulty in visualizing the associations 
and interactions between variables will also increase. Therefore this method is not used 
very often and is currently not implemented in UEDIT. 

A more useful approach is to crosstabulate the n variables of interest pairwise and 


arrange the n(n —1)/2 contingency tables in a draftsman’s table (Ref. 10: p. 136], an array 


3 Exact tests are available in the StatXact package, but its import capability is limited to casefiles 
with a sample size of maximal 200 and to 2 x 2 contingency tables. 
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of tables arranged in the following order 
V, vs. V. V, vs. Vz V, vs. V4 ... V3 v8. V, 


V, vs. V3 Vovs.V, ... Vo vs. V, 
Vavs.V, ... Vavs. V, 


Voet ¥8. Ve 


where V, vs. V; denotes the result of a crosstabulation of variables : and 7. Examples are 


given in Appendix D. 
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Ill. CONSTRUCTION OF THE SBI DATABASE 


A. BACKGROUND 

The Director of Central Intelligence (DCI) Personnel Security Working Group (PSWG) 
1s examining the investigative requirements of the DCI Directive 1/14 with a large scale 
study of the Special Background Investigation (SBI). The study is designed to evaluate the 
productivity of investigative sources in developing the necessary information to determine 
eligibility for access to Sensitive Compartment Information (SCI). The objectives of the 


study are to: 


1. Determine the productivity of sources of information in personnel security investiga- 
tions. 


2. Evaluate the length of coverage needed to determine with reasonable probability that 
an indication of significant adverse information will be developed. 


It 1s recognized that when significant information is revealed, an inquiry is normally ex- 
panded to completely resolve an issue. The purpose of the present PSWG study is to 
determine which sources provide the first indication of a problem and the minimum period 


of coverage needed to reveal a problem. 


B. DATABASE FORMAT 

The data for the PSWG study is recorded by adjudicators on machine-scannable, case 
summary forms after an initial determination has been reached. These forms are then 
scanned, and the information is converted into SAS format and recorded on tape. To edit 
and work interactively with the data the tape contents are then dumped to a CMS file on 
the mainframe computer of the Naval Postgraduate School. 

The original database presently consists of 861 records, one for each issue case. The 
data were collected during the first six months of 1989. Each record contains 166 fields 
of information pertaining to the particular issue case. The first 13 fields contain the case 
number and data common to each of up to three issues which are coded in the remaining 


153 record fields. The record format is fixed but with variable field lengths. 
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This data file was then transferred to a PC and preprocessed with KEDIT and Personal 
REXX‘ with the purpose of 


1. Constructing new records consisting of the 13 common fields and one issue (51 fields) 
per record. The new database has now 1173 records for 861 individuals, with 64 fields 
each. 


2. Reducing the amount of disk storage needed by converting the file format to “comma 
delimited”, i.e., fields are no longer padded with blanks to preserve the fixed format 
but are delimited with commas only. 


The file was then loaded into UEDIT and recoded using the recoding facility (Shift-F8) 
provided by the program. Because of the structure of the summary forms and the automatic 
scanning process all fields in the original database are numeric. In addition some of the 
fields were coded in binary form, 1.e., in a sequence of ones (marked) and zeroes (unmarked), 
whereas most other fields were coded in decimal form, e.g., the field YEAR OF BIRTH. 
All categorical fields were recoded to obtain their original label, e.g., in the EDUCATION 


column 


Non-HS 

GED 

High school 
Some college 
College degree 
Post-graduate 


LLaLESA 


Om rt WN Re 


Missing data (unknown values) were consistently coded as a blank field which is internally 
stored by UEDIT as —32768 for numeric columns as a default value. 

To facilitate the analysis, two databases were generated consisting of the common 
data (861 records) and the tssue data (1173 records), respectively, with the case numbers 
as identifier fields in both files. 

The common data consist mostly of identification fields and demographic attributes. A 


preliminary analysis of these demographic variables is the objective of the following chapter. 


‘ KEDIT is a full-screen text editor, Personal REXX a computer language. Both are highly 
compatible to IBM’s XEDIT and REXX respectively which are available on the Naval Postgraduate 
School mainframe computer. 
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IV. ANALYSIS OF THE SBI DATABASE 


Six demographic variables are included in the database of Security Background Inves- 


tigation. These are 


nm Pm GW WH 


A. 


. YEAR OF BIRTH 

. GENDER 

. MARITAL STATUS 

. EDUCATION (highest education level of the subject) 
. JOB CATEGORY which is described by 


(a) Professional — project managers, scientists, analysts, military officers, etc. 


(b) Technical — persons involved in the manufacture, operation or maintenance of 
equipment and military enlisted personnel 


(c) Clerical — persons involved in clerical duties 


(d) Service — charforce, security guards, etc. 


. TYPE OF EMPLOYEE (military, federal civilian or industrial contractor) 


FREQUENCY COUNTS 
The database of the demographic data presently consists of 861 individuals of whom 


2/3 are male, 48% are single and 43% are married. 79% are between 18 and 40 years 


old. 


Nearly all have at least a high school degree. The complete results are tabulated in 


Appendix A. 


The number of incomplete data, 1.e., data that are coded as unknown, which usually 


causes problems for an accurate analysis is small and mostly negligible, as Table 1 shows. 


TABLE 1. PERCENTAGE OF MISSING DATA 
GENDER 
YEAR OF BIRTH 
MARITAL STATUS 


EDUCATION 
JOB CATEGORY 
TYPE OF CATEGORY 
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B. CONTINGENCY TABLES 


The columns of demographic data were pairwise crosstabulated using the “Draftsman’s 
Display” option of UEDIT. The resulting contingency tables are listed in Appendix B. Note 
that the spreadsheet computer display has several advantages over the printed display: 
observed frequencies and residuals are displayed in different colors, significant residuals are 
highlighted which makes comparisons much easier. 

All tables have x?-statistics between 29.6 and 530.5 with p-values less than 0.0011 
contradicting the hypothesis of no association between these attributes. Of course, many 
of the associations found are obvious. For example, only few individuals of age 20 and 
less are married or have a Postgraduate degree. Only three subjects are widowed so that 
no significant statements for them can be made. The observations made are summarized 


below. 


YEAR OF BIRTH vs. GENDER 
The proportions of males and females in the database are maintained only in the range 
of ages 30-40. Below this range there are relatively more females, above this range 


more males. 


YEAR OF BIRTH vs. MARITAL STATUS, EDUCATION and JOB CATEGORY 
As mentioned before there is a strong tendency for younger individuals to still be 
single and have not yet finished their education. Therefore additional crosstabulations 
were done in which the year of birth was conditioned to those that lie in the range 
20-59. These results were quite different and showed no strong associations between 


the categories. 


Year of Birth vs. x 
Marital Status 51.06 


Education 46.18 
Job Category 33.09 





YEAR OF BIRTH vs. TYPE OF EMPLOYEE 
The same restricted additional crosstabulation was performed for YEAR OF BIRTH 
and TYPE OF EMPLOYEE. This limited the amount of associations. The results 


15 


3 


were x” = 31.04 and a p-level of .03. But a relatively large number of contractors in 


the range of age 55-65 remains noticeable. 


MARITAL STATUS vs. GENDER 
The number of married females in the database is relatively low, while there are more 


married men than the expectation under the assumption of independence. 


MARITAL STATUS vs. JOB CATEGORY 
This table mirrors the results of the crosstabulations of YEAR OF BIRTH vs. MAR- 
ITAL STATUS and JOB CATEGORY. For example, singles are usually younger than 
married individuals and are more likely to fall into the job category Technical. 


MARITAL STATUS vs. TYPE OF EMPLOYEE 
The most noticable positive relationship in the table is between contractors and mar- 
tied subjects, while there are relatively more single federal civilians and military per- 
sonnel. Also the rate of divorced contractors and federal civilians is higher than the 


rate of military personnel. 


EDUCATION vs. GENDER 


Generally the education level of females tends to be lower than of males. 


EDUCATION vs. MARITAL STATUS 
Weak associations can be observed between many singles with high school degree 
and married subjects with postgraduate degree on one hand and few singles with 


postgraduate degree and married inviduals with high school degree on the other hand. 


EDUCATION vs. JOB CATEGORY 
As expected there are strong association between these two categories depending on 
the prerequisites for the different job categories. This resulted in a x?-statistic of 
442.5. 


EDUCATION vs. TYPE OF EMPLOYEE 
Generally the education level of contractors and federal civilians in the database is 
higher than that of military personnel. This may be because the age is correlated with 


both categories. 
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JOB CATEGORY vs. GENDER 
A very large number of females is involved in clerical duties. This is already obvious 


by looking at the absolute numbers. 


JOB CATEGORY vs. TYPE OF EMPLOYEE 
Obviously most military personnel are in the job category Technical which involves 
all enlisted personnel, while federal civilians are mostly in the other three categories. 


The result was the highest x? statistic of 530.5. 


TYPE OF EMPLOYEE vs. GENDER 
Most females are in the category Federal Civilian, while males are more associated 


with the other classes Contractor and Military. 


L? 


V. CONCLUSIONS AND RECOMMENDATIONS 


A. RESULTS OF THE ANALYSIS 

The database of Security Background Investigation with its 861 x 64 fields could easily 
be handled with UEDIT. The ability to investigate character and numeric data in one matrix 
by scrolling across the worksheet was extremely useful in enabling the investigation to see 
characteristics of the data at a glance. Inconsistent coding schemes were spotted at once 
and recoding was a matter of seconds. The fear that the speed of the editing and the 
statistical functions would be unacceptable due to the interpretative character of the APL 
language was soon dismissed. 

APL2’s capability to handle nested vectors and matrices as a unit causes the loss in 
speed for editing the SBI database compared to a 150 x 10 matrix to be minimal, except 
for the time it takes to load a database into the system. 

The preliminary analysis of the demographic data in the SBI database was eased by 
the fact that the percentage of missing data is low. This raised the statistical significance 
of the statements considerably. However, one has always to bear in mind that correlation 
does not imply causation. This was demonstrated when several strong associations lost 


their significance when the subjects under investigation were limited to age 30 and older. 


B. RECOMMENDATIONS FOR FURTHER STUDIES 

The frequency counting, crosstabulation and contingency table analysis should be re- 
peated when the SBI database is complete. The methodology will remain appropriate. 
Because of the interrelatedness among all variables the analysis should involve n-way com- 
parison. When GRAFSTAT/PC is released by IBM these investigations should be extended 
by graphical analysis to further improve the visual effect of the results. 

The extra facilities offered by a second generation APL interpreter like APL2 make the 
APL language even more attractive for statistical analysis. The APL2 environment is ideal 
for collecting a flexible set of investigative tools. Therefore UEDIT has been designed to be 


open-ended. New functions can be added easily either by implementing them as an integral 
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part of the system—a template has been provided to achieve this task—or by copying them 
into the workspace in addition to UEDIT and activate them from UEDIT’s command line. 


Possible enhancements in connection with this thesis may be: 
1. Extending the analysis to n-way contingency tables to examine multi-way interactions 
between three or more variables. 


2. Providing methods to measure the degree of dependence or independence in contin- 
gency tables. 


3. Graphical methods for the analysis of contingency tables. This could be done by 
enhancing the interface to GRAFSTAT/PC after its release. The interface 1s presently 
kept very rudimentary as no exact specifications are yet available. 
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APPENDIX A. SBI DATABASE FREQUENCY TABLES 


The following tables show the frequency tables for the demographic variables in the 
SBI database. Presently there are 861 cases in the database. Therefore these tabulations 
will change after all data have been collected. Unknown attnbutes are indicated by a dash. 

The bar charts in the last table columns are presented in the way produced by UEDIT: 
If all absolute frequencies are smaller than 40 then all bar lengths (measured in display 
columns) are equal to those frequencies. Otherwise the longest bar is 40 columns long and 
the others have lengths proportional to it. The lengths are at least 1 unless there are no 


observations in a Class. 


YEAR OF BIRTH 
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GENDER 





MARITAL STATUS 


Single 
Married 
Separated 
Divorced 


Widowed 





EDUCATION 


Non HS 
GED 


Highschool 


Some college 


College degree 





Post-graduate 


21 


JOB CATEGORY 


Clerical 


Professional 


Service 


Technical 


Contractor 
Federal Civilian 
Military 





22 


APPENDIX B. SBI DATABASE CONTINGENCY TABLES 


The following tables show the results of a pairwise crosstabulation of the demographic 
data in the SBI database. The 15 tables were created using the “Draftsman’s Display” 
option of UEDIT. The first entry in each field shows the obeserved frequency, the second 
field shows the standard residual for each pair of attributes. The spreadsheet screen display 
of UEDIT shows observed frequencies and residuals in different colors, significant residuals 
are highlighted which makes comparisons much easier. Clearly this highlighting cannot be 
shown on a black and white page. However it is possible to display only the highlighted 
residuals by pressing (Shift-S) (“Shadow”). An example of this reduction of the YEAR OF 
BIRTH vs. GENDER crosstabulation is given below. 
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YEAR OF BIRTH - GENDER 


45-49 


50-54 


99-59 


60-64 


65-69 


70-72 


total 


column % 


d.o.f. 
Chi-sq 
signif 


.00 
-.05 


.00 
-.13 
.00 
-.29 
1.00 
4.55 


-00 
-.33 


.00 
-.37 


.00 
-.44 


1.00 
1.43 


.00 
-.66 


.00 
-.74 


.00 
-.43 
2.00 

00 


20.0000 
46.3417 
.0007 


Female 


.00 
-.59 


1.00 
-.91 


10.00 
33 


1.00 
-2.17 


9.00 
-1.73 


14.00 
-1.48 


30.00 
a 


39.00 
-.07 


76.00 
1.31 


84.00 
.26 


34.00 
1.35 


298.00 
35 


Male 
1.00 
43 


6.00 
67 


16.00 


= 
4 


17.00 
1.31 


37.00 
1.28 


46.00 
1.10 


95.00 
-.05 


74.00 
-.03 


113.00 
-.91 


152.00 
-.14 


44.00 
-.96 


961.00 
.65 


total 


1.00 
.00 


7.00 
01 


26.00 
03 


19.00 
.Q2 


46.00 
05 


60.00 
07 


85.00 
.10 


114.00 
13 


189.00 
ey 
236.00 
at 


78.00 
.09 


861.00 





YEAR OF BIRTH —- GENDER (shadowed) 


- Female Male total 


20-29 
30-34 
35-39 
40-44 


45-49 
50-54 
55-59 
60-64 
65-69 
70-72 
column % 
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YEAR OF BIRTH - MARITAL STATUS 


- Single Married Separated Divorced Widowed total 


.00 1.00 .00 
-.10 75 -.66 


00 .00 5.00 
-.27 -1.83 1.12 


00 00 20.00 
-.52 -3.53 2.59 


35-39 .00 3.00 13.00 
-.45 +-2.02 1.65 


40-44 .00 3.00 37.00 
-.69 -4.05 3.81 


45-49 2.00 5.00 45.00 
1.73 -4.43 aE 


50-54 1.00 11.00 62.00 


12 = -4.65 4.13 


55-59 1.00 34.00 70.00 
-.18 -2.78 2.91 


60-64 .00 91.00 83.00 
-1.41 .06 10 


65-69 3.00 190.00 37.00 
34 1.25 -6.47 


10-72 2.00 74.00 2.00 
leeks 6.00 -5.48 


total 9.00 412.00 374.00 
column % 01 48 43 


d.of. 50.0000 
Chi-sq 384.9084 
signif .0000 
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YEAR OF BIRTH - EDUCATION 


| - Non HS GED Highsch. SomeColl. CollDeg. PostGrad. total 
00 E d 1.00 OO 
-.13 ; ‘ 1.42 -.53 


20-29 OO ; 1.00 1.00 
-.35 ’ -.63 -.68 


30-34 2.00 5.00 6.00 
2.30 -.73 -.45 


35-39 2.00 4.00 6.00 
2.90 ; ; -.47 32 


40-44 .00 11.00 14.00 
-.90 ; -.35 34 


45-49 2.00 ; 12.00 16.00 
93 : -.99 -.16 


50-54 3.00 25.00 27.00 
1.25 ; .90 .70 


55-59 3.00 : 29.00 33.00 
ste ; -.24 24 


60-64 2.00 46.00 68.00 
-.71 -.60 2.15 


65-69 .00 : 88.00 68.00 


-2.03 3.18 31 


10-72 1.00 : 7.00 .00 
-.31 :; -3.02 -4.65 


total 15.00 ; 261.00 229.00 239.00 
column % .02 .30 aq 28 


d.of. 60.0000 
Chi-sq 265.9455 
signif .0000 
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YEAR OF BIRTH - JOB CATEGORY 


1.00 
4.83 


20-29 .00 
-.53 


30-34 2.00 
.96 


35-39 2.00 
1.44 


40-44 3.00 
.88 


45-49 5.00 
Lot] 


50-54 2.00 
-.74 


55=59 8.00 
1.65 


60-64 7.00 
-.17 


65-69 3.00 
-2.07 


70-72 1.00 
-1.19 


total 34.00 
column % .04 


d.o.f. 40.0000 
Chi-sq 165.4638 
signif .0000 


- Clerical 


.00 
-.35 


.00 
-.94 


3.00 
-.14 


1.00 
-.90 


8.00 
93 


5.00 
-.92 


13.00 
a 
8.00 
-1.67 


32.00 
1.70 


26.00 
-.66 


12.00 
tal 


108.00 
13 


Profess. Service Technical 


oH § 


00 
-.60 


2.00 
-.33 


7.00 
-.77 


3.00 
-1.47 


5.00 
-2.84 


11.00 
-2.28 


21.00 
-1.74 


28.00 
-2.04 


57.00 
-1.34 


125.00 
4.34 


51.00 
4.32 


310.00 
.36 


total 


1.00 
00 


7.00 
01 


26.00 
.03 


19.00 
02 


46.00 
05 


60.00 
O7 


85.00 
20 


114.00 
13 


189.00 
ioe 


236.00 
el 
78.00 
.09 
861.00 





20-29 


30-34 


35-39 


40-44 


45-49 


50-54 


55-59 


60-64 


65-69 


70-72 


total 


YEAR OF BIRTH - EMPLOYEE TYPE 


- Contractor 


1.00 
1.82 


5.00 
3.11 


17.00 
5.30 


9.00 
2.75 


19.00 
3.35 


19.00 
2.13 


27.00 
2.56 


23.00 
.16 


38.00 
.18 


9.00 
-5.46 


1.00 
-3.64 


168 .00 


.00 
~.64 


2.00 
-.53 


9.00 
-.53 


7.00 
-.31 


19.00 
.00 


22.00 
-.96 


34.00 
-.19 


48.00 
13 


87.00 
1.00 


109.00 
1.16 


19.00 
-2.33 


356.00 


FedCivilian Military 


.00 
-.62 


.0O 
-1.65 


.00 
-3.17 


3.00 
-1.60 


8.00 
-2.32 


19.00 
-.87 


24.00 
-1.55 


42.00 
-.31 


61.00 
-1.41 


118.00 
2.80 


58.00 
5.07 


333.00 


total 


1.00 
.00 


7.00 
01 


26.00 
.03 


19.00 
02 


46.00 
05 
60.00 
O07 


85.00 
.10 


114.00 
13 


189.00 
ae 


236.00 
at 
78.00 
09 
861.00 


column % .20 41 39 


dof. 30.0000 
Chi-sq 191.2516 
signif .0000 
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Single 


Married 
Separated 


Divorced 


Widowed 


total 


column % 


d.of. 
Chi-sq 
signif 


MARITAL STATUS - GENDER 


Single 


Married 
Separated 
Divorced 
Widowed 


total 
column % 


d.o.f. 
Chi-sq 
signif 


.00 
-.14 


.00 
-.98 
1.00 

14 


.00 
-.17 


1.00 
2.56 


00 
-.08 


2.00 
.00 


10.0000 
29.5805 
.0010 


MARITAL STATUS - JOB CATEGORY 


- Clerical 


3.00 
4.44 


10.00 
-1.55 


20.00 
1.36 


.00 
-.69 


1.00 
-.71 


00 
-.34 


34.00 
.04 


20.0000 
67.6096 
.0000 


.00 
-1.06 


47.00 
-.65 


43.00 
-.57 


2.00 
.40 


14.00 
3.01 


2.00 
2.65 


108.00 


13 


Female 


1.00 
-1.20 


156.00 
1.12 


107.00 
-1.97 


6.00 
a) | 


25.00 
1.75 


3.00 
1.93 


298.00 
35 


Profess. 


29 


Male 


8.00 
88 


256.00 
-.76 


266.00 
1.43 


6.00 
-.65 


25.00 
-1.43 


.00 
-1.40 


561.00 
65 





Service 


total 


9.00 
01 


412.00 
48 


374.00 
43 


12.00 
.O1 


51.00 
.06 


3.00 
.00 


861.00 


Technical total 


5.00 9.00 
.98 01 


170.00 412.00 
1.78 .48 


114.00 374.00 
-1.78 43 


5.00 12.00 
33 01 


15.00 51.00 
-.78 .06 


1.00 3.00 
-.08 .00 


310.00 861.00 
.36 





MARITAL STATUS - EMPLOYEE TYPE 


o,f - Contractor FedCivilian Military total 
.00 9.00 9.00 
-.20 2.96 01 


Single 2.00 ; 178.00 412.00 
.06 ; 2.04 1.48 48 


Married 2.00 117.00 131.00 374.00 
.20 5.15 -1.13 43 


Separated .00 2.00 . 4.00 12.00 
-.24 -.22 . -.30 01 


Divorced .00 14.00 10.00 51.00 
-.49 1.28 ; -2.19 .06 


Widowed .00 .00 : 1.00 3.00 
-.12 -.17 : -.15 .00 


total 4.00 168.00 ; 333.00 861.00 
column % .00 .20 39 


d.o.f. 15.0000 
Chi-sq 90.0469 
signif .0000 





EDUCATION - GENDER 


—- Female Male total 


.00 13.00 15.00 
-.19 1.03 .02 


.00 4.00 8.00 
-.14 : -.53 01 


00 5.00 8.00 
-.14 -.09 O1 


Highschool .00 146.00 261.00 
-.18 -1.84 .30 


Some College 1.00 143.00 229.00 
.64 -.51 a 


CollDegree .00 169.00 239.00 
-.75 1.06 .28 


PostGraduate 1.00 81.00 101.00 
1.58 1.87 ae 


total 2.00 561.00 861.00 
column % .00 65 


d.o.f. 12.0000 
Chi-sq 32.7184 
signif 0011 
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EDUCATION - MARITAL STATUS 


Highschool 


Some College 
CollDegree 
PostGraduate 


total 
column % 


d.o.f. 
Chi-sq 
signif 


- Single 


4.00 
Be 


00 
-.29 


00 
-.29 


2.00 
-.44 


2.00 
-.25 


1.00 
-.95 


.0O 
-1.03 


9.00 
.O1 


30.0000 
158.6933 
.0000 


Married Separated Divorced Widowed 


31 


00 
-.23 


.0O 
-.17 


00 
-.17 


3.00 
2.19 


00 
-.89 


OO 
-.91 


.OO 
-.59 


3.00 
00 


total 


15.00 
O02 


8.00 
.O1 


8.00 
.O1 


261.00 
.30 


229.00 
27 


239.00 
.28 


101.00 
12 


861.00 





EDUCATION - JOB CATEGORY 


- Clerical Profess. Service Technical total 


4.00 .00 7.00 15.00 
4.43 -1.37 .69 02 


.00 .00 6.00 8.00 
-.56 -1.00 1.84 01 


.00 1.00 6.00 8.00 
-.56 00 : 1.84 04 


Highschool 8.00 49.00 155.00 261.00 
-.72 2.84 6.30 .30 


Some College 8.00 44.00 107.00 229.00 
-.35 2.85 2.70 we 


CollDegree 9.00 12.00 27.00 239.00 
-.14 -3.28 -6.37 .28 


PostGraduate 5.00 2.00 2.00 101.00 
roe -3.00 -5.70 ol 


total 34.00 108.00 310.00 861.00 
column % 04 As 36 


d.o.f. 24.0000 
Chi-sq 442.2512 
signif .0000 
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EDUCATION - EMPLOYEE TYPE 


- Contractor FedCivilian Military total 


.00 8.00 1.00 6.00 15.00 
-.26 2.97 -2.09 .08 02 


.00 1.00 1.00 6.00 8.00 
-.19 -.45 -1.27 1.65 01 


.00 .00 3.00 5.00 8.00 
-.19 -1.25 -.17 1.08 01 


Highschool 1.00 31.00 91.00 138.00 261.00 
-.19 -2.79 -1.63 3.69 .30 


Some College .00 36.00 aap 98.00 aoe 


-1.03 -1.30 1.00 


CollDegree 3.00 54.00 115.00 67.00 239.00 
1.79 1.08 1.63 -2.65 .28 


PostGraduate .00 38.00 50.00 13.00 101.00 
-.69 4.12 1.27 -4.17 12 


total 4.00 168.00 356.00 333.00 861.00 
column % .00 .20 .41 39 


d.o.f. 18.0000 
Chi-sq 98.9490 
signif .0000 





JOB CATEGORY - GENDER 


ae —- Female Male _ total 


.00 8.00 26.00 34.00 
-.28 -1.10 82 04 


Clerical .00 95.00 13.00 108.00 
-.90 9.42 -6.84 13 


Professional 2.00 77.00 261.00 340.00 
1.36 -3.75 2.65 .39 


Service .00 22.00 47.00 69.00 
-.40 -.39 30 .08 


Technical .00 96.00 214.00 310.00 
-.85 -1.09 85 36 


total 2.00 298.00 561.00 861.00 
column % 00 35 65 


d.o4. 8.0000 
Chi-sq 163.7666 
signif .0000 
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JOB CATEGORY - EMPLOYEE TYPE 
[oe a 


FedCivilian Military total 


4.00 5.00 34.00 
-2.68 -2.25 04 


103.00 1.00 
8.73 


172.00 
2.65 


57.00 
5.33 


20.00 


— Contractor 


1.00 24.00 
aAZ 6.74 


Clerical 00 4.00 
-.71 -3.72 


2.00 96.00 
33 3.64 


5.00 
-2.31 


39.00 


108.00 


-6.31 13 
340.00 
39 


70.00 
-5.36 


7.00 69.00 
-3.81 .08 


250.00 310.00 
-.37 -2.76 -9.55 11.88 36 


total 4.00 168.00 356.00 333.00 861.00 
column % .00 .20 41 39 


dof. 12.0000 
Chi-sq 530.5306 
signif .0000 


Professional 
Service .00 
-.57 


Technical 1.00 





EMPLOYEE TYPE - GENDER 
ia 


—- Female Male total 


1.00 3.00 4.00 
-.33 24 .00 


Contractor 
FedCivilian 
Military 


total 
column % 


d.of. 
Chi-sq 
signif 


28.00 
-3.95 


181.00 
9.21 


88.00 
-2.54 


298.00 
35 


34 


140.00 
2.92 


173.00 
-3.87 


245.00 
1.90 


561.00 
.65 


168.00 
20 


356.00 
Al 


333.00 
39 


861.00 





APPENDIX C. UEDIT USER’S MANUAL 


A. SYSTEM REQUIREMENTS 

UEDIT is a workspace for IBM’s APL2/PC which will run on any IBM-compatible 
microcomputer with at least 512 KB RAM. However, due to the memory limitations of 
DOS and the size of UEDIT a database should not contain more than apprommately 1000 
fields on a machine with full 640 KB RAM. The maximum which can be processed depends 
on the contents of the fields. Therefore it is recommended for moderately large or large 
databases that one run the program on an 80386/80387 computer under APL2/32. This 
APL2 interpreter utilizes all available memory in the machine up to 16 MB. 

The program will operate with almost any monochrome or color video adapter with an 
appropriate monitor. UEDIT supports the EGA 43-line mode and the VGA 50-line mode. To 
print matrices a printer supported by APL2 is required. A special Auxithary Processor (AP 
81) which enhances the support of printers compatible with the Hewlett Packard LaserJet 
is provided with UEDIT, together with two soft fonts. 

The program was written using version 1.02 of APL2/32 on an 80386 based computer 
with 4 MB of RAM, an EGA video adapter and monitor and a Hewlett Packard LaserJet 


II printer. 


B. PROGRAM AVAILABILITY 

A copy of this workspace is available from the author or Professor Peter A. W. Lewis 
at the address given in the Initial Distribution List. Please send a 5/4 inch or 31/2 inch 
IBM-compatible formatted disk. 


C. GETTING STARTED 
Before you start APL2 you should create a subdirectory to hold data files created by 
UEDIT, for example with the DOS command 


MD C:\APL2\UEDIT 


35 


This is not absolutely necessary as all files saved by UEDIT can be recognized by their file 
extension .UED. However, it is recommended that you keep the APL2 program files and the 
data files in separate directories. 

Then start the APL2 interpreter with the Auxlary Processors AP2 (Non-APL pro- 
gram interface), AP80 or AP81 (Printer control), AP124 (Full-screen display management), 
AP210 (DOS file management) and AP440 (Sound generator) and load UEDIT. You may 


use a batch file containing the commands 


APL2FONT 
APL232 AP2 AP81 AP124 AP210 AP440 )LOAD UVEDIT 
APL2FONT /T 


where APL2FONT loads/unloads the APL2 video character set. 

When you have loaded UEDIT for the first time you should inspect certain global 
variables which contain default values that may have to be configured for your needs. Do 
not forget to subsequently save the workspace with the )SAVE command to set the new 
defaults permanently. All of these variables can also be changed temporarily from inside 


the UEDIT environment. The following subsections describe the variables. 
1. PATH 
The variable PATH contains the default directory path to UEDIT’s data directory. 
Use an assignment like 
PATH+'C:\APL2\DATA\ ' 
to set the path to your needs. Note that the path assignment must be finished with 
a backslash. All spreadsheets created in UEDIT and saved with (F2) or (Shift-F2) (see 


page 43) will be saved in this directory with a file extension “.UED”. 


2. MISSAN 
To display a “missing numeric value” (unknown attribute) as a blank field it is 
necessary to assign a special numeric value to the appropriate field which is unlikely to 
occur in a database. By default UEDIT uses —32768. To change this value assign a new 
value to MISSAN, e.g., 


MISSAN+~ 99999 


This can also be done with UEDIT’s function (Ctrl-F9) (see page 48). 
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3. PRINT 
The variable PRINT is a 7-element vector containing default parameters for print- 


outs of matrices. See page 54 for a detailed discussion of these values. 


4. DATE 
Dates are stored as number of days since February 29, 0000, and displayed in the 
form MM-DD-YYYY by default. The display order can be changed by changing the global 
variable DATE which contains a 3-element vector where YYYY corresponds to 1, MM to 2, DD 
to 3. Thus the default value of DATE is 2 3 1. To change to a Buropean style date display 
DD-MM-YYY you would assign 


DATE*3 2 1 


D. RUNNING UEDIT 
To edit an APL2 array MATRIX start your UEDIT session with the command 


UEDIT 'MATRIX' 


UEDIT then performs the following steps 


1. If a file MATRIX.UED exists in the data directory UEDIT reads the matrix and its 
parameters from this file. 


2. Otherwise, if an array MATRIX exists in the active workspace UEDIT starts the session 
with this matrix, creating new format and attnbute parameters. 


3. Otherwise UEDIT creates a new array MATRIX and prompts for a vector of column 
formats (see below). 





You can start a program with 
UEDIT '' 


In this case the program goes immediately to the File Operations menu (see page 44) to 


allow the import of a comma delimited or formatted DOS file. 
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E. COLUMN FORMATS 


The following codes are valid for defining new columns or changing column types. 


A Standard APL numeric format 

Nz Numeric with z decimals 

Ez Scientific format; the mantissa is displayed with z decimals 
C Character format 

D Date format 


All column widths are set dynamically depending on the largest field in each column. Note 
also that the number of decimals is only significant for screen and printer output. Internally 
all numbers are stored at their full APL2 accuracy. 

For example, to create a new matrix which will consist of the columns “Name”, “Day 
of Birth”, “Years of Service”, “Salaries” you would respond to the prompt for new column 


formats with 

C,D,A,N2 
Note that the elements are separated by commas. 

UEDIT always displays the current formats below the matrix columns. An identifier C, 
N or D representing character, numeric or date data, respectively, is followed by the total 
column width. If a numeric column has a fixed decimal format, a period with the number 


of decimals is added. Thus for the example above the display may show 


C6 D8 N2 N7.2 


F. MOVING AROUND 

When you edit a matrix for the first time the cursor will be located in the first field of 
the matnx, i.e.,1n the upper left corner. The cursor position 1s always one complete field 
indicated by an inverse video display. When you save your work the cursor position is also 
saved so that you can resume editing at the position where you stopped. 


To move the cursor and the editor window around, several key combinations are avail- 


able: 


1. The cursor keys (+-—]| ) move the cursor one field into the appropriate direction as 
long as the matrix borders are not yet reached. If necessary the editor window will 
scroll into the opposite direction to show the new active field. 
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2. To scroll the matrix by one field within the editor window use (Ctrl-—) and (Ctrl-—) 
for horizontal moves or (Ctrl-PgUp) and (Ctrl-PgDn) for vertical moves. 


3. To scroll the matrix up or down one full window at a time use the (PgUp) and (PgDn) 
keys. To scroll one window to the left and right use (Tab) and (Shift-Tab). 


4. To position the cursor on the matrix edges press (Home) for the first and (End) for 
the last column, (Ctrl-Home) and (Ctrl-End) for the first and last row, respectively. 


5. If you want to locate the cursor in a specific field nt (Ctrl-L). UEDIT will prompt 
you for the row and column number and position the cursor in that field scrolling the 
window if necessary. 


Reminders of these key combinations are also available on UEDIT’s on-line help screens. 


G. DATA INPUT AND MODIFICATION OF DATA USING APL2 

COMMANDS 

The default keyboard layout is “APL mode” which makes several ASCII characters 
unaccessible in the usual way. To switch the layout to the normal “ASCII mode” (typewriter 
keyboard) hit (Ctrl-Backspace) or (Alt-Backspace). These key combinations are toggles, 
1.e., they take you back and forth between the two modes every time you hit them. 

When you want to enter a value for the active field, i.e., the field displayed in inverse 
video, just start typing. Any key which does not invoke a special editing function will be 
recognized as the first character of a new value for the active field. The “input line”, which 
is the third line from the bottom, is then activated — the color changes to high intensity 
— and it will accept further input until the (Enter) key is hit. The new value is written 
into the matrix, the display updated and the input line 1s closed. 

If the active field has a numeric type you can input an expression which has a numeric 
scalar as its result. Elements of the current matrix can be accessed in this input in several 
ways: UEDIT works with a copy MAT of the original matmx. Thus any element of the 
current matrix can be used with MAT[i;j] where i and j are the row and column indices, 
respectively. A short-cut notation for the element at the cursor position is a. A synonym 
for a vector of all marked elements of the matrix is w (see page 41). For example, to double 


the value of the active cell (in a numeric column, of course) you can type 


2*a 
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After the (Enter) key is hit the value in the cursor position is doubled. To add the elements 


of column 1 and assign the sum to the active field you would type 
+/MAT[; 1] 


followed by (Enter). For additional examples see the section on marking and highlighting 
of areas (page 41) and the description of function key (Ctrl-F4) (page 45). 

To change a field hit (Enter). This will copy the field content to the activated input 
line and you can edit it by overwriting or inserting characters — use the (Ins) key to toggle 
between overwrite and insert mode. 

Additional keystrokes recognized during the data input are: 

(Home) which locates the cursor at the beginning of the input line, 

(End) which locates the cursor at the end of the line and 


(Escape) which cancels the input, i.e., terminates the input but leaves the field un- 
changed. 


Many functions of UEDIT allow data vectors as input. To separate the elements of a 
vector you should for consistency always use commas, although very often blanks are also 
accepted as valid delimiters. If a vector element contains a comma itself enclose the element 
in double quotes (") if your keyboard layout is set to ASCII mode, or in diereses (") if you 


are working in APL mode. 


H. INPUT OF DATES 

Dates are internally stored as number of days since February 29, 0000°. This allows 
computations to be performed on a matrix column defined as dates. 

Valid date specifications in input mode are (assuming the default order of month-day- 
year as given by the variable DATE) 

MM-DD-YYYY 

MM/DD/YYYY 


MM.DD.YYYY 
MM DD YYYY 


°> This base was chosen because it makes the conversion between internal and display format 
easy and fast. 
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You can omit the year. In this case UEDIT will insert the current year which is taken from 
the DOS system date. If you enter the year with only two digits the current century will 
be inserted. 

Every input 1s checked for validity. This means, invalid dates like 2-29-1990 or 00— 
00-1990 will be rejected, and you will be prompted for a correction. 


I MARKING AND HIGHLIGHTING OF MATRIX AREAS 

Marking and highlighting of matrix cells are similar actions but with a different phi- 
losophy. While marking is used as a preparation for a several editing functions, e.g., to 
copy, move, print or rotate matrix areas, highlighting 1s used to emphasize the contents of 
matrix fields. UEDIT will highlight matrix fields by itself during crosstabulations. 

The term “marked area” (or “highlighted area”) denotes the smallest submatrix of the 
original matrix where each row and each column contains at least one marked (highlighted 
field). That is, it is the original matrix with all rows and columns removed which have no 
marked or highlighted fields. Note that this area may contain fields which are not marked 
or highlighted. 


1. Marking 
To prepare certain fields for editing actions use the following key combinations. 
The marking 1s indicated by a different background color and a blinking “M” in the upper 
left corner of the screen. This is useful as a reminder if the marked fields are scrolled off 
the screen. 


Ctrl-F Mark a single field 
Marks the field at the current cursor location. The function works as a toggle, 
1.e., you can hit (Ctrl-F) again to unmark the field. It also defines the first corner 
of a marked block (see the next item). 


Ctrl-B Mark a block 
Defines the second corner of a block to be marked. The first corner was fixed the 
last time (Ctrl-F) was hit. All fields within the rectangular area defined by the 
two opposite corners will be marked. 


Ctrl-R Mark a row 
Marks all fields in the row defined by the current cursor location. 


Ctrl-C Mark a column 
Marks all fields in the column defined by the current cursor location. 
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Ctrl-U Unmark 
Removes al] marking information from the matnx. 


After you have marked one or more fields of the matnx you can use the symbol w 
as a short-cut notation for a vector of these fields. This vector is built in row-major order. 
That is, when you have marked the fields MAT[1;1], MAT[1;3], MAT[2;1] and MAT[2;2], 
you have implicitly assigned 

weMAT(1; 1] ,MATL1;3] ,MAT([2;1] , MAT[2;21 


For example, if these four fields contain numbers, you can add the first three elements, 


divide the sum by the last field and assign the result to the active field by typing 
(+/3tw)+w [4] 


as a new data input. More examples can be found in the description of function key 


(Ctrl-F4) (page 45) and in Appendix D. 


2. Highlighting 
Six levels of highlighting are available, indicated by different high-intensity fore- 
ground colors and a blinking “H” in the upper left corner of the screen. The level of the 
normal display is 0. You can always change the levels by assigning a new level. The func- 
tions are similar to those used for marking and are defined as follows (“Sh” denotes the 
Shift key). 


Sh-0...6 Highlight a single field 
Highlights a single field in the matrix and assigns a (color) level of 0,...,6 to 
the field. It also defines the first corner and the color level of a highlighted block. 
Highlighting to level 0 is the same as removing the highlight information. For 
consistency with the marking syntax (Sh-F) is available which will prompt you 
for a color level. 


Sh-B Highlight a block 
Fixes the second corner of a block and highlights this block in the color given by 
the first corner. 


Sh-R ~~ Highlight a row 
Highlights all fields in the row defined by the current cursor location. You will 
be prompted for the color level. 


Sh-C Highlight a column 
Highlights all fields in the column defined by the current cursor location. You 
will be prompted for the color level. 
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Sh-U 


Sh-S 


Unhighlight 
Removes all highlighting information from the matrix. To unhighlight only cer- 
tain areas of the matrix use the functions above and assign color level 0. 


Shadowing 

This option asks for a color level and then hides all rows and columns which 
contain only fields below that level. The newly created matrix (including the 
column and row labels) is overlaid over its “parent” matrix and can be edited in 
the same way. To return to the original matrix use “Quit” (F3) or “File” (F4) 
(see page 44). When you use (F4) all changes are entered into the parent matrix. 


J. UEDIT FUNCTIONS 


Once the session is started the whole range of UEDIT’s functions can be accessed using 


certain keys or key combinations. In the following descriptions a “S-” denotes the (Shift) 


key, “C-” the (Control) key, i.e., (S-F10) means to hold down the (Shift) key while pressing 


(F10). 


F1 


S-F1 


C-F1 


F2 


Help 

This function displays three pages of on-line help. The pages contain short re- 
minders of the definitions of all function keys and the description of the cursor 
movement keys. Use (PgDn) and (PgUp) to see all pages. 


Sort 

Sorts the rows of the matrix simultaneously on any number of columns in major- 
minor order. The sorting on character columns is performed lexicographically 
and is case-insensitive, i.e., lower and upper case entries are equivalent. The 
normal sort order is ascending. To sort descending enter the column numbers 
with a negative sign. For example, when you enter the column numbers to sort 
on as 


1, 8,40 
UEDIT first sorts on column 10 in ascending order, then in descending order on 
column 5, and finally on column 1 (the most significant) in ascending order. 
Another example is described in Appendix D. When you sort the rows of a 
frequency table the cumulative frequencies will be updated automatically. 


Refresh 
If by some unexpected action the screen becomes fragmented use this function to 
restore the the correct display of the worksheet. 


Save 

Saves the edited matrix into a file of the same name (limited to the first eight 
characters) and the file extension .UED and places this file in the data directory as 
indicated by the global variable PATH. A copy of the matrixis kept as a global vari- 
able in the active workspace. Matrix attributes (column formats, highlighting and 
marking information) are also saved in this file. The editing session continues. 
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S-F2 


C-F2 


F3 


S-F3 


Save As... 

Performs the same action as the “Save” function (F2) but prompts for a new 
matrix/file name. This action allows the user to save a matrix under different 
names in several stages of the editing process. When the session continues the 
newly assigned name is the default name. 


File Operations 

This option displays a submenu of available functions to import or export files. 
Note that the export operations do not save matmx attributes, e.g. marked areas. 
Presently the following file formats are supported: 


1. Read/Write formatted ASCII files — All fields in a data column have equal 
widths padded with blanks if necessary. UEDIT will prompt for the column 
widths before it reads such a file as there is no way to safely determine 


them. When it writes a formatted file adjacent columns will be separated 
by two blanks. 


2. Read/Write comma separated files — The fields of a record are delimited 
by commas. Trailing blanks in a field are not necessary. A field which 
contains a comma must be enclosed in double quotes ("'). This format is 
supported by most commercial database and spreadsheet programs. It is 
also the fastest way toimport a file into UEDIT. Note that STATGRAPHICS 
can only read comma separated files but not write to them. 


3. Export to GRAFSTAT — As GRAFSTAT/PC has not yet been released 
by IBM only a basic export capability is provided presently. This will write 
a matrix column as a variable into the active workspace. The variable will 
be a vector if the column has numeric format, otherwise it will be a two- 
dimensional character matrix with one element per row. It can be used as 
an input to the user’s own APL2 functions, unless the user wants to execute 
them on the command line (see below under (C-F4) ). 


4. Export to StatXact — This function wntes one or more matrix columns to 
a DOS file which can be imported into StatXact. Line numbers are added 
automatically by UEDIT. Note that StatXact will accept only numeric data 
and its import capability is hmited to samples of up to 200 records and and 
2 x 2 contingency tables. 


Quit 

Exits the current editing session without saving the matrix. If the matrix has 
been changed since the start of the session or the last “Save” (F2) or “Save As” 
(S-F2) operation you will be prompted to confirm the termination. 


Put 
Saves a marked area of the matrix (see page 41) including row and column labels 
into a new APL2 matrix in the active workspace. This function will not write to 
disk. 
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C-F3 


F4 


S-F4 


C-F4 


Get 

Inserts or overlays another APL2 matrix from the active workspace into the cur- 
rently edited matrix. UEDIT will ask whether to insert new rows or columns or to 
overlay an existing area of the matrix. If you choose to insert rows the shape of 
the added matrix will be adjusted, 1.e., 1f the new matrix has less columns than 
the current matrix it will be padded with empty (“missing”) columns, if it has 
more columns the excess columns will be truncated. The corresponding actions 
are taken when you choose to insert new columns. When you want to overlay the 
new matrix over the current one the position of the cursor determines the upper 
left corner of the overlay area. The same adjustments as for insertions are made 
if necessary. 


File 

Saves the edited matrix into a file of the same name (limited to the first eight 
characters) and the file extension .UED and places this file in the data directory 
as indicated by the global variable PATH and terminates the editing session. Ma- 
trix attributes (column formats, highlighting and marking information) are also 
saved in this file. A copy of the matrix is held as a global variable in the active 
workspace. 


New Matrix 

Starts a new editing session with a different matnx without leaving the UEDIT en- 
vironment. This is the same as “Quit” (F3) and then typing UEDIT 'NEWMATRIX’ 
in the APL2 environment. 


APL command 
This function allows the user to submit any valid APL2 command. It is a simple 
way toimplement additional functions into the UEDIT workspace. Elements of the 
current matrix can be accessed as described before: any element of the matnx 
can be used with MAT[i;j] where i and j are the row and column indices, 
respectively. A short-cut notation for the element at the cursor position is a. A 
synonym for a vector of all marked elements of the matnx in row-major order 1s 
w. For instance, assume you have marked a number of numeric fields anywhere 
in the matrix. To add these values and assign the sum to the field at the cursor 
position use the command 

art /w 
To add 1 to each of the marked elements you may use 

wewt 1 
You should not use functions which display a result on the screen as the location 
of the output 1s unpredictable and will be overwritten by UEDIT immediately. To 
display results which will not become elements of the matrix a utility function 


SHOW is included in the UEDIT workspace. To display the current value of the 
variable PATH simply type 


SHOW PATH 
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F5 


S-F5 


C-F5 


F6 


and return to the editor session by hitting the (Return) key. If, for example, you 
want to add the first ten integers you can type 


SHOW +/210 


to see the result. 
To display another matrix, say NEWMATRIX, on the screen you can give the com- 
mand 


USER ‘NEWMATRIX' 


This command calls UEDIT recursively and overlays NEWMATRIX over the existing 
matrix. Note that the name of the matrix must be enclosed within quotes. You 
can edit NEWMATRIX like any other matnx. When you terminate this session by 
hitting (F3) or (F4), UEDIT takes you back to the original matrix. 

As the number of possible commands is nearly unlimited, the only message in 
case of an error is that UEDIT will display the message “Invalid Input”. The 
command is displayed again on the input line with a and w expanded to their 
actual meaning, and you have the chance to correct your input. 

For additional examples see Appendix D. 


Statistical Functions 
This option displays a submenu of the available statistical functions. These are 
described on page 49. 


Toggle Column Labels 

Converts the first matrix row to column labels if no column labels exist. Other- 
wise it adds the existing column labels as a new first row to the matnx. When 
a new matrix is imported UEDIT guesses whether the first row and first column 
contain labels or not. If UEDIT’s assumption is wrong use this function or “Toggle 
Row Labels” (S-F6) to correct the mistake. 


Edit Column Labels 

This function lets you edit existing column labels or create new labels if none 
exist. It works in bulk mode (see the next function) starting with the first column. 
When all desired changes are made you may stop by hitting the “Escape” key. 


Bulk mode 

The bulk mode option allows the user to manually add or insert new rows or 
columns into the current matrix. UEDIT first prompts for row- or column-wise 
input. For row-wise input the following actions take place (the equivalent holds 
for column-wise input): A new row is inserted into the matrix before the current 
cursor position, the cursor 1s located in the first field of this row and a prompt 
is displayed to enter a value for this field. Each time you hit (Enter) the cursor 
changes to the next field to the right and again waits for input. If the row is 
filled a new row is created below the last one and the process starts over. Hit the 
(Escape) key to leave this mode. 

Note that data which exceed the current column widths will appear truncated 
on the screen during the input. This improves the speed with which UEDIT 
can handle the input and stops the input flow from being interrupted. After 
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S-F6 


F7 


S-F7 


F8 


S-F8 


C-F8 


completion of the input the necessary column widths are recalculated and the 
display 18 updated. 


Toggle Row Labels 

Converts the first matnx column to row labels if no row labels exist. Otherwise 
it adds the existing row labels as a new first column to the matrix. When a new 
matrix 18 Imported UEDIT guesses whether the first column and first row contain 
labels or not. If UEDIT’s assumption is wrong use this function or “Toggle column 
Labels” (S-F5) to correct the mistake. 


Insert Row 
Inserts a new empty row before the current cursor location. 


Insert Column 

Inserts one or more empty columns before the current cursor location. You will 
be prompted for the formats of the new column. See page 38 for a description of 
valid formats. 


Change Column Format 

Lets you change the format of the column the cursor 1s currently located on. You 
will be prompted to specify the new format. See page 38 for a description of 
the format codes. Note that only valid changes will be accepted. For example, 
a numeric column can always be changed to character format, but a character- 
type column can only be converted to numbers if all fields can be interpreted as 
numbers. 


Search 

This function searches for the next occurence of a specified number or character 
string. Substrings (even in numbers) will be found too. The search, which is 
case-sensitive, 1s performed 1n row-major order starting at the current cursor 
position. The function does not “wrap around” the end of the matrix. Therefore, 
in order to locate all occurrences of the search object you should start in the upper 
left corner of the matrix. 


Recode 

This function is especially useful when you have imported data from a system 
which can handle only numeric data, thus requiring that character type attributes 
are coded with numbers. With this function it is easy to recode such a matrix 
column to its original or any other desired attribute. UEDIT will display each 
distinct value of that column and prompt for a new attribute. If you want to 
change only a few values you can terminate this function with (Escape) after all 
necessary changes have been made. 


Rotate 

To edit a matrix it may sometimes be easier to transpose the matrix, 1.e., turn 
rows into columns and columns into rows, and in addition hide matrix areas you 
do not need. “Rotate” creates a new matrix containing the transpose of the 
original matrix if no area is marked or of a marked area of the matrix. The new 
matrix is overlaid over its “parent” matrix and can be edited in the same way. 
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F9 


S-F9 


C-F9 


F10 


S-F10 


C-F10 


To return to the original matrix use “Quit” (F3) or “File” (F4). With (F4) all 
changes are entered into the parent matnx. 


Copy 

Copies a marked row or column block to a new position which is indicated by the 
current cursor position. Note that the block is inserted before the current row or 
column. Presently this function will only copy blocks which cover all rows or all 
columns. To copy smaller areas use the “Put/Get” combination (S-F3), (C-F3). 


Move 

Moves a marked row or column block to a new position which 1s indicated by the 
current cursor position. This is essentially the same operation as “Copy” but the 
marked block will be deleted from its original position. 


Change “Missing Value” 

This option provides an easy way to change the numeric “Missing Value”, 1.e., 
the code assigned to unknown numeric data. The display will be updated imme- 
diately after the change. 


Delete Row(s) 
This function deletes marked rows or the current row if no rows are marked. 
You will be prompted for confirmation before any action takes place. If you have 
deleted rows by mistake you can still recover from that error if you have not saved 
the matrix since the deletion. Take the following steps to save as much of your 
work as possible: 


1. Assuming you are editing the matrix MATRIX, choose function (C-F4) and 
issue the APL2 command 


HELPMATRIX* MATRIX 


This will copy the original matrix which still contains the deleted rows to 
anew matrix. 


2. “File” the current matrix with the (F4) function. 
3. Now edit HELPMATRIX and delete all rows except those you want to recover. 
“File” this matrix. 


4. Restart your editor session of MATRIX, locate the cursor on the row where 
the deleted rows should be and insert HELPMATRIX using the “Get” function 
(C-F3). 


Delete Colum(s) 

Deletes marked columns or the current column if no columns are marked. You 
will be prompted for confirmation before any action takes place. See the function 
(F10) for recommendations for error recovery. 


Printer Functions 
Displays a submenu of available printer functions. See page 54 for a description. 
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K. STATISTICAL FUNCTIONS 

Presently there are four statistical functions implemented into the menuing system of 
UEDIT. All operate on one or more columns of the currently edited matrix. Function key 
(F5) activates a submenu which lets you choose from the functions which are described in 


the following sections. 


1. Frequency Counts with Conditionals 

UEDIT prompts you for a column number on which to perform the frequency 
tabulation. If the column contains numeric data or dates you also have to specify three 
classification parameters: lower bound, upper bound and number of classes (see page 52 for 
details). To include only certain observations into the frequency count or to exclude certain 
observations you have the option of conditioning the tabulation on one or more matrix 
columns, including the one which is counted, as described on page 52. For example, you 
may want to exclude from the count the cells marked unknown. 

The function then creates a new matrix overlaid over its parent in which each 
row contains the class label, absolute, relative and cumulative frequencies. The last matrix 
column displays a simple bar chart to visualize the frequencies. If all absolute frequencies 
are smaller than 40 then all bar lengths (measured in display columns) are equal to those 
frequencies. Otherwise the longest bar will be 40 columns long and the others have lengths 
proportional to it. The lengths are at least 1 unless there are no observations in a class. 

You can edit the table like any other matrix. When you decide to sort the rows 
on a different criterion than the default lexicographical order the cumulative frequencies 
are recalculated automatically. To go back to the original table hit (F4) (File) to save the 
table to disk or (F3) (Quit) to exit without saving the table. 





Figure 2. Sample frequency table created by UEDIT 
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2. Crosstabulation with Conditionals 

This option allows the user to crosstabulate any two matrix columns. Thus you 
will have to specify two columns at UEDIT’s prompt. The handling of numeric columns and 
the conditioning are the same as in the case of frequency counts. 

Again UEDIT creates a new table which is overlaid over the original matrix. It 
contains the observed absolute frequencies and the standard residuals for each field of 
the table. The standard residuals are highlighted at color level 1. In addition, residuals 
whose absolute values are larger than 1.96 or 2.54 are highlighted to level 2 and level 3, re- 
spectively, for emphasis. Thus, to see only the standard residuals, you can use the Shadow 
function (Shift-S) to hide the other rows and columns. 

Also displayed are the row and column marginals in absolute and relative num- 
bers. Below the table the value of the x? statistic, the p-value and the number of degrees 
of freedom are tabulated. 

To return to the parent matrix hit (F3) or (F4) as always. 


Married Separated Divorced 


Female 
Female 


Male 
Male 


total 
column % 


d.o.f. 
Chi-sq 
signif 





Figure 3. Sample contingency table created by UEDIT 
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3. Draftsman’s Display 
This function creates 2-way contingency tables for several matrix columns which 
are laid out internally as 
V, vs. V2 V, vs. V3 Vi, vs. Ve, ... V, vs. V, 


V, vs. V3 Vovs.V, ... Vo vs. V, 
V3 vs. V4, ... V3 vs. Vy, 


Veuy 88. Ving 


where V; vs. V; denotes the result of a crosstabulation of columns : and j. 

Each table is formatted as the single tables described in the previous subsection, 
and you can edit each table in any way. To switch to a different submatrix hold down the 
(Alt)-key and hit one of the cursor keys. Note that you must release (Alt) to start the 
scrolling. 

UEDIT chooses a temporary name for each table, which is a composite of the 
corresponding column labels or column numbers if no labels exist. Recall, that the name 


of a matrix is always displayed in the bottom row of the screen. 


4. Aggregation 

To increase cell counts and cell expectations in contingency tables you can ag- 
gregate (“pool”) matrix columns or rows. Simply enter the column or row numbers in 
response to UEDIT’s prompt or answer “O” which returns you to the original contingency 
table. All necessary recalculations will be performed automatically. Note that when you 
want to aggregate rows, you have to enter the row numbers which are displayed in the 
left-most column of the display. It is not necessary that the columns or rows you aggregate 
are contiguous. 

When you are in a draftsman’s display the pooling takes place only in a particular 
table, i.e., the other tables are not changed and can be aggregated in a total different way. 
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5. Classification of Numeric Data 
If you want to do frequency counts or crosstabulations on numeric columns or on 
columns formatted as dates UEDIT assumes that the values are from a continuous domain. 


You have to enter three classification parameters: 


1. the lower limit L of the first class, 
2. the upper limit U of the last class and 


3. the number of classes n in which to group the data. 


The classes then have equal lengths ! = (U — L)/n. Two additional classes are created to 


classify values below L and above U. That means n+ 2 classes are created 
(—oo, Ly), (aa); I [Las Un); [Des +00) 


where 0 = b+4 Xl for ¢ = 1,...98 tad fy = Lb, by = Op for 9 = 205%. The 
intervals are open to the nght, except for the first interval. 

If the data have only a few different values (e.g., re-coded character labels) it is 
suggested that the user converts this column to character data (Ctrl-F7) before starting 


the function to emphasize their “discrete” status. 


6. Conditional Calculations 

UEDIT allows frequency counts and crosstabulations to be conditioned on condt- 
tioning columns, i.e., to perform the calculations only for those rows that match specific cri- 
teria. These conditioning columns can be any matrix columns including the ones which are 
counted. 

The input of conditioning columns is a two-step process: First you enter the 
column numbers and their logical relationship, then you enter the conditioning criteria for 
each of the columns successively. A complete example 1s given at the end of this section. 

When UEDIT prompts for conditioning columns hit (Enter) if you want all rows 
to be included in the operation. Otherwise enter the conditioning columns in a logical 
expression. For example, to include only those rows in the calculation where both column 


1 and column 2 match certain criteria enter 


1A2 
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After a syntax check you will be prompted for the criteria for each conditioning column 


(see below). Valid operators are 
Avawer/(), 

This makes a construction like 
1A(2V3A4) VA/5,6,7 


perfectly legal although it may make no statistical sense. The most frequent application 
will probably be to exclude all missing values from a crosstabulation where you would use 
the first example, 1A2. 


The conditioning criteria are inputted in the following way: 


1. Character column 
Enter the criteria separated by commas. For example, to include only rows where the 
marital status is single or married type 


Single,Married 
The case of your input is significant as are leading blanks. If an entry contains a 


comma itself enclose it within double quotes (") or diereses (“) when your keyboard 
layout is set to APL. 


To exclude certain criteria type a tilde (~) in front of the values followed by a comma, 
1.e., to exclude rows with a marital status single or married the correct input is 


~,Single, Married 


If missing values are denoted by empty (blank) fields type 


tad 
? 


to exclude them. 
2. Numeric or date column 
The criteria have the form 
£3514 poy Voge ws 
where L, and U; define a closed interval [L,;,U;] specifying the range of values to be 
included or excluded. For example, 
T -10,45,20.,80.,30 
includes only rows whose value in the conditioning column is in the range [7,10], 
[15,20] or is exactly 30 = [30,30]. Overlapping ranges are allowed: 
12,20,10,45 


includes all rows with a value in the interval [12,20] U (10, 15] = (10, 20] in the calcu- 
lation. 
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As in the case of character columns the tilde excludes certain ranges. To exclude rows 
with a date between February 1 and March 15, 1990 you have to type 


0, 2-1-90,39-15-90 


You can omit the year in the input if you type this in 1990. When you want to include 
the missing values (MISSAN) you can abbreviate this to 


wv 
3 


To summarize, assume you want to crosstabulate columns 3 and 6 of a matrix 


but want to exclude the missing values in both columns. Then your answers to UEDIT’s 


prompts would be: 


(Columns to crosstabulate:) 3,6 


(Conditioning columns:) 3A6 
(Criteria for column 3:) 5 
(Criteria for column 6:) ig 


PRINTER FUNCTIONS 


The (Ctrl-F10) key combination activates a submenu with several options. These 


are described in the following subsections. If you use a Hewlett Packard LaserJet II or 


compatible printer it is recommended that you call the Awaliary Printer Processor AP81 


on the DOS command line instead of the AP80 supplied by IBM. Note that you can always 


take a “snapshot” of the current screen without using the special printer functions by hitting 


(Shift-PrtScrn). 


F1 


F2 


Print worksheet 

Prints the complete matrix with page numbers and headings. Matrices which do 
not fit on a single page are split on several continuing pages. Columns are not 
broken over pages. The page numbering is done in the following layout: 





You are given the option to repeat column and row labels on each page. 


Print mark area 

Works in the same way as “Print worksheet” but prints only a marked area of the 
currently edited matrix (see page 41 for a description of “marked area”). This 
feature is very useful and gives the user great control over the printed output. 
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F3 


F4 


F5 


F6 


Pv 


F8 


F9 


F10 


Formfeed 

Sends a formfeed to the printer, 1.e., ejects a page. 

Initialize 

This function initializes the printer. The only task presently is (in the case 
of the AP81) to download a portrait font AP1OORFN.SFP and a landscape font 
AP1OORFN.SFL to the memory of the laser printer. You can use any fonts provided 
they have these names (or are renamed to them) and reside in the default directory 
of the default disk. UEDIT displays a warning message if it cannot found one or 
both fonts but does not take any further action. You have to initialize the printer 
only once; the fonts remain in memory until you turn off the printer. 


Orientation 

Switches between portrait mode (the default) and landscape orientation. The 
function also exchanges the valus for textheight and textwidth against each other. 
The menu always shows the mode you switch to when you choose this option. 
I.e., when you read “portrait” on the menu screen you are currently in landscape 
mode. 


Left margin 
Specifies the blank space (in printer columns) to the left of the printer matrix. 


Number of columns 

Sets the number of columns to be printed per page. Note that this number 
specifies the actual printer positions, usually the number of characters. It is not 
related to the columns of the matrix. 


Top margin 
Defines the number of blank lines above the page number, which is the first line 
printed. 


Lines per inch 

Sets the vertical spacing of the printout. The most used values are 6 and 8 lines 
per inch. Depending on the size of the font and the size of the worksheet to be 
printed you may increase or decrease the value. 


Reset 
This option resets all values set with functions (F5)-(F9) to their default values 
which are saved in the global variable PRINT. 


The global variable PRINT is a 7-element vector containing the following default values 
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PRINT([1] 11 PH paper height 

PRINT[2] 8.5 PW paper width 

PRINT(3] 0 flag portrait(0) / landscape(1) 
PRINT[4] 10 LM _ left margin (in printer columns) 
PRINT[S] 80 PC number of columns to print 
PRINT[6] 3 TM _ top margin (in lines) 

PRINT[7] 6 LPI _ lines per inch 


For example, to make landscape printing the default mode change PRINT by assigning 
PRINT[v3]+8.5 11 1 


From these parameters other necessary values can be calculated. The number of lines 
printed per page (textheight TH) is defined by 

TH = integer (a1 x (PH — oa — ;)) 
The “usable” textheight is TH minus 3 lines for the page number and the worksheet title 
minus 2 lines if column labels are printed. 

To calculate horizontal margins in inches the “pitch” of the font must be known. The 
pitch is the number of characters per horizontal inch. Usual pitch values for dot matrix 
printers are 10 or 12. The laser printer fonts AP1OORFN.SFP and AP10ORFN.SFL both print 
12 characters per inch. Then the left margin LMI and right margin RMI in inches are 
defined by 


LM 

nae" 
RMI = pw —-LM+tNC 
pitch 


To obtain a left margin of / and a nght margin of r inches set 


LM lx pitch 


NC 


(PW -r)x pitch- LM 
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M. CLEANING UP 

When you finish your editing session you may want to save global variables you have 
created in a separate file or erase these objects to clean up the workspace before you start 
a new session. The function CLEAN helps you with these tasks. Simply type 

CLEAN 
on the APL2 command line. You have are given choices: 


1. To erase all functions and variables which are part of the UEDIT system, 
2. To erase all objects which are not part of the UEDIT system. 
Respond by typing (1) or (2) followed by (Return) depending on your choice. Any other 
key combination will cancel the execution of this function. 
If you want additional functions or variables to be recognized by the CLEAN function 


as an integral part of UEDIT, copy them into the workspace, give the commands 


4nl2-Dtb"c(2]ONL 2 
4n13+Dtb"c(2}0NL 3 


and save the UEDIT workspace. 
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APPENDIX D. SAMPLE SESSION WITH UEDIT 


The following sample session tries to make the user more familiar with some of UEDIT’s 
features. Professor User of the Naval Postgraduate School currently teaches a class with 18 
students. The grading for the course is based on two examinations which determine 40% 
and 60% of the final grade, respectively. At the beginning of the quarter he has prepared a 
UEDIT matrix CLASS with the names of the students which he uses as row labels. After the 
first exam he enters the points for each student with UEDIT’s bulk mode (F6). This allows 
him to enter the scores one after the other without looking up from his notes. The result 


after adding column labels with (Ctrl-F5) is a display as shown in Figure 4. 


Curtis ; 
Dillon : 
Ellis : 
Field 
Gould 
Hayes 
Jones 
King 
Lee 


Miller | 
Norman : 
Owens : 
Peters : 


Press Enter to change field values 
UEdit 1.00 CLASS [18;1] 





Figure 4. UEDIT display after input of the results of the first exam 
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Professor User has a standard scheme to translate points, which always have 100 as a 


maximum, into grades: 


points 94-100 87-93 80-86 73-79 66-72 59-65 52-58 
grade A A- B+ B B- C+ C 


Therefore he has written a short APL2 function GRADE which allows him to do the 


conversion efficiently: 


[0] R+GRADE PT 
[1] ReC'A' "A-' "Bet "BY 8B" *C#* 'C')[L(107-PT)+7] 


He is also interested in the ranking of the students. So he decides to add two columns to 
the matrix. He moves the cursor to the right of the “points” column, hits (S-F7) to insert 
columns and answers the prompt for column types with 

C,A 
because the grades have character type but the ranks are numbers. Both tasks take column 
1 as input. So he marks column 1 by moving the cursor into it and hitting (Ctrl-C). This 
allows him to use w as a short-cut notation for MAT([;1]. Then he uses UEDIT’s feature to 


enter arbitrary APL2 commands ((Ctrl-F4) ) twice and assigns, on the command line, 


MAT[;2]+GRADE w 
MAT(L:3]+A¥u 


This inserts the grades into column 2 and the ranks into column 3 as shown in Figure 5. 


He unmarks column 1 ((Ctrl-U)) and files the matrix with (F4). 
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Dillon : 
Ellis : 
Field 
Gould 
Hayes 
Jones 
King 
Lee 


Miller : 
Norman : 
Owens : 
Peters ; 
Riley 

Smith ; 
Thomas 


Press Enter to change field values 
UEdit 1.00 CLASS [(18;3] 





Figure 5. UEDIT display after adding grades and ranks 
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After the second examination, Professor User deletes the ranking column with function 
(S-F10). Again he uses the bulk mode to enter the points for the second exam and then 
converts them to grades with his GRADE function. He adds two more columns to the matrix, 
which will contain the course points and course grade, and fills these columns with the APL2 


command 
MAT(;6]+GRADE MAT(;5]*MAT[;1 3]+.*.4 .6 


This gives him the display of Figure 6. 


5 6 
.2 points grade 


Curtis 
Dillon : 
Ellis : 
Field 
Gould 
Hayes 
Jones 
King 
Lee 
Miller : 
Norman : 
Owens : 
Peters : 
Riley 
Smith: 
Thomas | 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 


—_>~_ > eh ph pe 
On rr W KN 


Press Enter to change field values 
UEdit 1.00 CLASS [18;6] 





Figure 6. UEDIT display after calculating the final scores 
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To rank the students he chooses to sort the rows of the matrix according to the points 
of column 5. In the case of equal numbers he wants the points of the second examination 
(column 3) to be the criterion for a higher rank. Therefore he starts the sorting with (S-F1) 


and responds to UEDIT’s prompt for column numbers 
“Dy o 
This will show him the students in descending order of their points, 1.e., the best student’s 


name is listed in the first row, as shown in Figure 7. 


Miller : 
Ellis : 
Field 

Baker 

Owens : 
Peters ; 
Dillon : 


Press Enter to change field values 
UEdit 1.00 CLASS [18;6] 





Figure 7. UEDIT display after sorting on final scores 
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Professor User then decides to crosstabulate the grades of the two exams although he 
knows that this will not make much sense as there are only 18 students in his class. But he 
wants to become more familiar with UEDIT and uses every opportunity to gain experience 
with its features. So he hits (F5) to open the menu of statistical functions, chooses (F2) for 
crosstabulation and enters 2,4 as the columns of interest. The result is a 7 x 7 contingency 
table, shown in Figure 8. Of course, most of the observed frequencies are 0. He decides to 
aggregate the scores into only three classes A, B and C by pooling (A,A-), (B,B+,B-) and 
(C,C+). He does this for the rows as well as for the columns of his matrix. Note that, 
when asked for row numbers to aggregate, he responds with “real” matrix rows, that is 
for example, rows 1 and 4 to pool grades A and A-. Figure 9 shows the resulting 3 x 3 


contingency table. 


Press Enter to change field values 
UEdit 1.00 pti_pt2 [24;8] 





Figure 8. UEDIT display of the contingency table 
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Press Enter to change field values 
VEdit 1.00 pti.pt2 (15;4) Fi - Help 





Figure 9. UEDIT display of the contingency table after aggregation 
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After this excursion Professor User leaves the contingency table display by hitting 
(F3) which takes him back to the original matnx. He wants to know at least one statistical 
figure, the average scores of his students. He moves the cursor to column 5 and marks it 
with (Ctrl-C). Then he moves the cursor to the last line, 1.e., to the line below the last 
score, types 

(+/w)+pw 
and presses (Enter). Note that he does not have to hit (Enter) to start entering a new 
value for a field. As soon as he types the left parenthesis, the input line is activated with 
the parenthesis as first character. 

He does the same calculations for columns 1 and 3 and formats these columns so that 


they are rounded to one decimal (Ctrl-F7). This gives him the display shown in Figure 10. 


98. 
88. 
92. 
92. 
89. 
78. 


83. 

TT. 

Thomas : , 80. 
Miller : 81. 
Ellis |: 79. 


Field : 74. 
Baker : ; Kp 
Owens : 70. 
Peters : : 66. 
Dillon : 54. 


Press Enter to change field values 
UEdit 1.00 CLASS [19;6] 





Figure 10. UEDIT display after adding average scores 
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Finally, he wants to print out the scores. He first sorts the rows back to their original 
order, that is, in ascending order of their names. He does that by responding with a 1 to 
UEDIT’s prompt for the column numbers. For the printout he 1s not interested in the letter 
grades of the two exams and wants to omit columns 2 and 4 from the output. Therefore 
he marks columns 1, 3, 5 and 6 using (Ctrl-C), opens the printer menu with (Ctrl-F10) 
and chooses option (F2) which will print out only the marked area, in this case the marked 


columns. The printed output would then look like the one shown in Figure 11. 


Name 


Allen 
Baker 
Curtis 
Dillon 
Ellis 
Field 
Gould 
Hayes 
Jones 
King 
Lee 
Miller 
Norman 
Owens 
Peters 


Riley 
Smith 
Thomas 


Nooo0odoooooooo coc 00000 0 0 
MODWOANOON WA HAN WAH WOO * WO 





Figure 11. UEDIT printout of the final scores 
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APPENDIX E. UEDIT FUNCTION LISTING 


The majority of functions of the UEDIT workspace (Version 1.0) were written by the 
author. Function listings under subsequent versions will differ. The version number appears 
in the lower left corner of the display. The functions CHISQ and GAUSS were originally 
written by Professor Harold J. Larson of the Naval Postgraduate School for the APL*PLUS 
system of STSC, Inc. They use fast, numerically stable algorithms and are extremely 
accurate. Necessary changes for the APL2 system were applied by the author. The functions 
Afv, Help and Menu are in a similar form part of the APL2/PC distribution, but were 
enhanced for the purposes of UEDIT. 

The two functions UEDIT and USER are listed first as they are the most important parts 
of the workspace. All other functions are called from here. They are listed in alphabetical 


order. 


QO] VEDIT ORIG;QI0;4C;4SR;4SC;4pvar;F;Cs;Ds;KEYB 

1] a 

2] AQ Main Program; initializes parameters, then calls USER, the dispatcher 
3) a 

4] QI0-o 

5] a 

6] QA Assign undefined keys 

7] KEYBe(16x25610AV1$2 OPK 0 38)+25610AV.1¢2 OPK 0 36 

8] KEYB-3+(16x25610AV1o2 OPK 0, KEYB+3)+25610AV162 OPK 0, KEYB+1 

9] QwWA-OAV(221J0OPK 0, KEYB+(58x3) +33 Q Ctr1-F, hex DD 
10] OWA-OAV(219]OPK 0, KEYB+(58x3)+19 QA Ctr1-R, hex DB 
11) OWA-OAV(220JOPK 0, KEYB+(S8x3)+22 QA Ctr1-U, hex DC 
12] aA 

QA Initialize AP124, get screen size 

14] OWA+(OEX 2 2p'CsDs') ,OSVR Fe2 2p'CsDs' ,OpOIO-1 

15] OWA-124 OSVO F 

16] #(2v.#124 OSVO F)/'30,p0+''ERROR: AP124 NOT ACTIVE''' 

17] (ASR 4SC)-Ds[1;3 4] ,OpCs-9 


CSS Vea eee ea eee ee ee es ke ee ee a er ee Oe he Le he ee 
— 
es) 
Ld 


Row 1: normal color values 
Row 2: color if active field / blinking 


18] a 
19] A Define color settings 
20] a 1 - edit area 16 - row/column labels 
21) QA 2..7 - highlight 17 - type/format line 
22) a 8 - command input line 18 - message line 
23) a 9 - normal marked 19 - status line 
24] Qa 10..15 - highlight marked 20 - pop-up windows 
Q 
a 
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( 27] 
{ 28] 


[ 29] 
C 30] 
C 31] 
( 32] 
( 33] 
[ 34] 
[ 35] 
( 36] 
( 37] 
C 38] 
( 39] 
{ 40] 
C 41] 
[ 42] 
[ 43] 
[ 44] 
C 45] 
[ 46] 
[ 47] 
{ 48] 
[ 49] 
C 50] 


CS C3 Fars CCS CI OSS PO Pen aS es ee en ee ee eee 
rors 
pore 
Ld 


AC-23 ,28 30 31 26 27 25,7 87,92 94 95 90 91 89,71 71 31 110 110 
Ac-eAC,(0.5)113,124 126 127 122 123 121,63 117,124 126 127 122 123 121, 
203,0 159 0 0 
a 
Q Define standard fields 


Fei 6 2,(4SC-5) ,2,4C[1;16] QA 1 - Column labels 

FeF,3 1,(4SR-6),5 2,4C[(1;16] A 2 - Row labels 
F-UF,(ASR-3),1 1,48¢,2,4¢(1;17] Q 3 - Format line 
FeF,ASR,1 1,4SC,2,4C(1;19] Q 4 - Status line 
FeF,(ASR-1),1 1,45C,2,4C(1;18] A 5 - Message line 

FeF, (ASR-2),1 1,45C,2,4C(1;8] A 6 - User input line 
FeF,3 7 19 33 2,AC(1;20] Q 7 - Help screen 

FeF,3 6,(4SR-6), (ASC-5) ,2,4C[1; 1] a 8 - Edit area 

FeF,1 11 1 2,4cC(2;20) a 9 - cursor position 
F+F,1 11 5 2,4c(2;20) A 10 - upper left corner 
FeF,2 61 1 2,4C€(1;16) A 11 - pseudo label 

F+F,6 40 13 32 2,4C(1;20] Q 12 - Submenus 
Cs~-1,0pDse12 6pF QA Initialize fields 

Cse12 0,0pCs+12,0pDs+6 1 1 a Cursor position 
fe) 

OWA+ResPrt Q Default printer parameters 
fe) 

OWA-USER ORIG a Start edit session 
fe) 

~0,F-OSVR 2 2p'CsDs' Q Retract shared variables 
RC-USER ORIG;N;K;L;DISP;4LR; 4LC; ALS; MAT; 4MR; 4MC;4AR; SAC; SRO; ACO; SOC; SOR; 


PRESS; SCL; SCT; 4DM; SMP; MSG; MSGO ; CFLAG; CLR; CHR; SUL; OUR; AUC; AWR; AWC; AMA; 
ADA; MARKC; MARKR; HIGHR; HIGHC; HIGHA; FindTxt ; DISA; DISL; DIST; DISB 


Q 

AQ Main dispatcher for all other functions 

QO RKC: 1 —- File, 90 - Quit or flag for draftsmen 

Q 
RC-CFLAG+O Qa 'Change' flag 
FindTxte'' QA 'Search' key 
AUL+' a 'Mark/high' reminder 
Cse1 8,0pDse3 6, (A4SR-6) ,(ASC-5),2,4C[1;1] a Pseudo fields 
Cs+1,9,O0pDse1 1 2 5 0,4C[1;16] 
@(ORIG='')/'+(Menu 2)10,NEW' Q File menu if no matrix name 
+(1+NewMat ORIG)>0, REFRESH, RESTART QA Get the matrix 

a 

Q Rebuild screen display 

Q 

NEW: CFLAG+O a Initial values 

a 

REFRESH: Cse2,5,0pDse' Updating display ...',OpCs+7,5,0pDs~AC(2; 18] 
Refresh 
Play 

RESTART: DISL+VerShift A create line numbers, row Labels 
DISBeHorShift A create column labels, field types/widths 
MSG-MSGOe' Press Enter to change field values' 

Q 

Scr0: ClearUL A clear upper left corner 


Cs-1,8,0pDs-4UR,AUC,A4WR,AWC,2,4C[(1;1] 
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Scr1:DISP+MakeDisP A create edit window 
Scr2:DISA-MakeDisA Q create edit attributes 
Title ORIG 
a 
SCREEN: Cs+7,5,0pDs~4C[1; 18] A Set message line to no-blink 
Cs+2,5,0pDs-MSGO 


Cs+4,1,0pDs-DIST QA column labels 
Cs+4,3,0pDs-DISB QA column formats 
Cs-4,2,0pDs-DISL,0pCs+7 ,2,0,pDs~4C([1 ; 16] Q row labels 
Cs+7 ,8,0pDs-DISA QA edit window attributes 
Cs+2 ,8,0pDs-DISP Q edit window 
ShowCell Q Highlight cell 

a 


Q Wait for and evaluate key strokes 


Q 
Key :7((p4ktyp) <PRESS-4kt yprcCHRe 21 Ds ,OpCs+3,1) pANY 


+~4@PRESS>Akey 
AaAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
CF1:~REFRESH Q Rebuild screen 
Q 
F1i:-~SCREEN, Help Q Help 
araaaaaaaaAaaaaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARA 
F8:-(27=1TFindTxt+FindTxt Input 'Search for ...')pSCREEN Q Search 

Cs+2,5,0pDse' Searching ...',O0pCs-7,5,0pDs-4C[2; 18] 


(K L)+4AR SAC 
F81 :7(OMC2>L+L+1)pF82 

~(OMR<K+K+L+1) pF83 
F82:7(V/FindTxtés€('' 'S' 'FromDays')(1+4MP(3;LJ],'°MATCK;L]')4F81 

(AAR SAC)+K L 

OCO-ASCOl (AWC2(+/OMP(1 2;4AC])-OMP[1;])21 

~RESTART , ARO~ARO[ SAR+4UR-ASR-4 
F83:-SCREEN,OpCs+11,1,0pCs*2,5,0pDs+'Not found: ',FindTxt 
AaRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR 
CF9 : Cs+2,6,0pDs-3K-MISSAN Q Chg MISSAN 
~(27=1TNe1 Input 'Enter new MISSING VALUE code')pSCREEN 

'+CF91' DEA 'MISSAN-aN' 

MATL (K=" MAT) /~9MATe , MAT] -MISSON 

MAT+( AMR, AMC) pMAT 

~REFRESH 
CF91:7-CF9 ,OpCs~11,1,0pCs*2,5,0pDs+'MISSING VALUE must be numeric' 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


CF4 :~Command! SCREEN , REFRESH Q APL command 

Q 

F5:7(Menu 1)4SCREEN, RESTART Q Statistics menu 
AAAAAAAAAAARAAAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARARAARARARARA 
F7:-Scri,InsRow Q Insert row 

SF7 :7~InsCol!SCREEN,Scri A Insert column 
Q 

F9:+(CopyMove 1)4SCREEN,Scr1 AQ Copy area 
SF9:-(CopyMove 0)4SCREEN,Scr1 A Move area 

Q 

F10: #( (2.0) =Ke(A/OMA2>8) /14MR)/'9F101,K+,SAR' Q Delete rows 


~(GetYN 'Delete marked rows')4SCREEN 
4F102,pAUL[1]+' ' 
F101:7-(GetYN 'Delete current row')4SCREEN 
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F102:4(€1+4MR=pK)>'~Scr0,DelRow K' '-SCREEN' 


Q 
SF10 : 4((10)=K+(AZOMA28)/1OMC)/'9SF101, Ke, SAC' A Delete columns 
~(GetYN 'Delete marked columns' )1SCREEN 
~SF102,pAUL[1i)+' ' 
SFi01:7(GetYN 'Delete current column')4SCREEN 
SF102: 2(1+4MC=pK)>'Scr0,DelCol K' '+SCREEN' 
ARAAAAAAAARAAAAAAAAAAAAAAARAAAAAAAAARARAAAAAAAAAAAARAAAAAAAAAAAAAAAAAARAAAAAA 
SHi:-(High 1)4SCREEN,Scr2 A Highl. field 


SHB:-(High 2)1SCREEN ,Scr2 Q Highl. block 
SHR:*(High 3)4SCREEN,Scr2 QA Highl. row 
SHC:-(High 4)4SCREEN,Scr2 Q Highl. column 
SHU:+(High 5) 4SCREEN,Scr2 Qa Un-highlight 
SHS: ~Shadow! RESTART , REFRESH QA Shadow 


CF:-Scr2,Mark 1 Q Mark field 
CB:-Scr2,Mark 2 Q Mark block 
CR:-Scr2,Mark 3 Q Mark row 
fe) 
A 


CC:7Scr2,Mark 4 Mark column 
CU:-Scr2,Mark 5 Unmark 
CF8:7RotatelRESTART , REFRESH QA Rotate 
AAAAAAAAAAAAAAAARAAAAAAARAARAAAAARAAARAAAAAAAAAAAAAAAAARAAARAAAAAAARAAARAAAARAAAA 
F2:7?SCREEN ,CFLAG-OxSaveMat ORIG A Save 
SF2:7-SCREEN,CFLAG-OxSaveMat '' A Save as. 
F3:7Quitl!SCREEN, RC+-O A Quit 
F4:-(RC+SaveMat ORIG)!SCREEN,0O A File 
fe) 
CF2:7-(Menu 2)4Scri, RESTART Q File menu 
fe) 
CFi0:-Scri,Menu 3 QA Print menu 
fe) 
CF3:7-GetBlock!SCREEN, REFRESH A Get Block 
Q 
SF3:7(27=1TN-GetName '')pSCREEN Q Put block 
+(''=K-CompBlock)pSF32 
'4SF31' DEA '4N,''-CompBlock''' 
~SCREEN 
SF31:7SF3 ,0pCs+11,1,0,pCs+2,5,0pDs+'Unable to save as ',N 
SF32 :-SCREEN,0pCs+11,1,0,pCs+2,5,0pDs~' Nothing to save' 
Q 
SF4:+(NewMat '')4SCREEN, NEW, NEW Q New matrix 
ARAAAAAAAAAAAAAAAAAAAARAAAAAAAAARAARAAAARAAAAAAAAAAAAAAAARAAAARAAAARAARAAAARAAAARARA 
ANY:-(0 GetEntry DAF 1TCHR)4SCREEN, RESTART Q ENTER / ANY other 
Ret :7((QAR>OMR)VOAC>AMC) pbbR1 Qa key pressed 
Ne >MAT[AMAR; SAC) 
4(4MP[3; 4AC]=2)/'Ne,FromDays N' 
-(O GetEntrytN)iSCREEN, RESTART 
AOR1:7(0 GetEntry '')4SCREEN, RESTART 
fe) 
F6:-Scri1, Bulk Q Bulk entry 
fe) 
SF8:7-RecodelSCREEN , RESTART A Recode 
A 
CF7:-+(ToggType SAC)4SCREEN, RESTART A Change column type 
A 
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SF1:-Sort4$SCREEN,Scri a Sort 

a 

SFS:*RESTART, MakeLabRow A Toggle col labels 
SF6 : ~RESTART, MakeLabCol Q Toggle row labels 
CFS : *RESTART, EdLab A Edit col labels 
AAAARAAARAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
CurLe:~GoHor , 4CO-ACOLSAC+1[4AC-1 A Scrolling 


CurRi:*GoHor, SCO-ACO[(OWC>(+/OMP[1 2;4ACH1+4MCLOAC] )-OMP([1;]) 21 
CtlLe:+GoHor, (SAC 4C0)+1[~1+4AC ACO 

CtlRi:+GoHor,(4AC 4CO)-(1+4MC)L1+4AC SCO 

Tab: ~GoHor , ACOMSACHOMCL+/ C(OWC+4OMP([1 ;4C0))>4MP[1;] 
STab:~+GoHor, &CO-SACe1[+/(OMP[1;4C0]-4WC)>SMP[1;] 

Home :~GoHor, SAC-4CO+1 

End: 4CO+(Aco[((1+ASC-AUC)>(+/AMP[1 2;A4AC-AMC+1] )-AMP[1;]) 11) 
GoHor: 4(S0C#4CO)/'-Scri,DISBeHorShift' 

~SCREEN 
A 

CurUp:-GoVer, ARO-AROLOAR+1[ SAR-1 

CurDn:~GoVer, SRO-SRO[1-SWR-SAR+1+4MRLOAR 

PgUp:*GoVer, (SAR SRO)+1[1-AWR-SAR ARO 
PgDn: SAR~(1+4MR) LOAR+4WR-1 

~GoVer, SRO~1[ (SRO+AWR-1) LAMR-SWR-2 

CtlUp:+GoVer, (AAR SRO)+1[~1+4AR SRO 

CtlDn:-~GoVer, (AAR ARO)+1+AMRLAAR ARO 

CtlHome: ~GoVer, SAR-SRO+1 

CtlEnd:4RO~-SRO[ 1-AWR-SAR~4OMR+ 1 

GoVer: 4(SOR#4RO)/'-Scr1,DISL-VerShift' 


“SCREEN 
Q 

CL: ~LocatelSCREEN ,Scri Q Goto field 
Q 

AltRi:7@(1+2=QNC 'DFLAG')>'Key' '0,RC+1' Q Alt-cursor 
AltLe:7#(1+2=O0NC 'DFLAG')>'Key' '0,RC-"1' a valid for 
AltUp:7~#(1+2=DNC 'DFLAG')>'Key' '0,RC-~2' Q draftsmen 
AltDo:7#(1+2=0NC 'DFLAG')>'Key' '0,RC+2' A only 
AaraaAaaraaraaaaAaaAaAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAA 
BSP: Q NeUWE A Intentional error for debugging 

Q 

CF6: A Currently unused, but defined label 
~Key 


M-R AddLabel C;Mmat;Matt 
Q 
Q Returns (mat attr), a submatrices of MAT and 4MA consisting of 
Q rows R and columns C, with row/column labels appended 
Q 

(Mmat Matt)~(MATL(R;C])(8{4MA(R;C]) 

#(A4UC>6)/'(Mmat Matt)~(COLc(R] ,Mmat)(0,Matt)' 

@(OUR=3)/'(Mmat Matt)+((((OUC>6)/4LS) , SLR(C]), [1] Mmat)(0,(1]Matt)' 
M-Mmat Matt 


(g 


0) 
1] 
2] 
3] 
4] 


| es ss i | 


Re I evra ee ee eee ee eee eae a ee 
=~] 
Ld 


SP Ee eee ee ea eS eI Seer eae eee eae, 
_— 
oO 
Ld 


en" 
NO 
—. 
Ld 


X Ass Y 

a 

QA Emulate X-"Y 

a 

MAT[X(1] ;X(2]]-<y 


RC+P BackLabel Mmat;R;C;SLR 
A 
Q Write submatrix Mmat back into MAT(R;C], P=R,C; RC: always 1 
Q First row/column may belong to label vectors 
A 
Cs-2,5,0pDse' Working ...',0pCs+7 ,5,0pDse4c(2; 18] 
SLRec' ' 
(R C)+P 
@(SUR=3)/'(Mmat SLR)+(1!$(1)] Mmat) (Mmat(1i;])' 
~(SUC=6) pa2 
(SLR SLS)+(1$SLR) (1 T SLR) 
ALC(R]+Mmat[; 1] 
Mmat+14(2]Mmat 
42: 4(SUR=3)/'SLREC]+SLR' 
MAT(R;C]+Mmat 
RC-CFLAG+1 


RC+Bulk;S 

Q 

Q Bulk entry mode. Enter new values into successive fields, 
A creating new rows/columns if necessary. RC dummy 


re) 

S+0 

Cs-11,1,0p9Cs*2,5,0pDse'Row- or columnwise (R/C) ?' 

~(A/67 99 82 114#K-1TDs,0pCse3,1)/0LC A get answer 

+~(67 99 82 114=K)/A21,421,A411,A11 A cols=Al1, rows=A21 
re) 
QA Rowwise 
re) 
411: RC-ACOMAAC+InsRow A Insert empty row, go to column 1 
412: Cs-4,3 ,0pDs-DISB-HorShift Q Adjust display 


413:Cs-7,8,09Ds-DISA+MakeDisA 
Cs+2,8,09Ds-DISP+MakeDisP 


ShowCell 
~(1 GetEntry '')$a14 A Get new value 
@ (AMC<SACHAAC+1)/'+A11 , AROMARO[ (QUR-ASSR-4) +SARHAAR+1' A New line 
~+(A0C=A4CO+ACOl ((1+4SC-AUC) 2>OMP[1:4AC+1]-AMP[1;])11)4412,413 A Next cell 
A14:4(AAC=1)/'OWA-DelRow AAR' QA Exit, delete row if empty 
~A30 
a 
A Columnwise 
re) 
420: Cs+2,8,0pDs-DISP+MakeDisP 
A21:7(RC+InsCol)$a25 A Insert empty col, go to row 1 
SRO-AAR+Se1 
422: Cs+4,2,0pDs+DISL+VerShift A Adjust display 


A23:Cs-7,8,0pDs-DISA+MakeDisA 
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C 11] 
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a) 


QA 
4 


Cs+2,8,0pDs-DISP-MakeDisP 
ShowCell 


~(1 GetEntry '')4424 A Get new value 

@ (ASMR<OAR+ASAR+1)/'72A20 , SACRHAACH1' Q New column 
+(SOR=4RO-ARO[1-4WR-ASAR) 1422 ,A23 Q Next cell 
24:4(SAR=1)/'OWA+DelCol AAC' Q Exit, delete column if empty 
7A30 

25:7510 

(AAR SAC)+COAR AAC) ~-1 

30:Refresh Q Update the matrix 
DISB+HorShift 


U-D CHISQ X;S;U;C1;C2;C3:N;V 


DyoDOYDOVYODDD 


Original program by Prof. H. Larson; modified for APL2 

12/3/86 Accurate and fast evaluation of the cdf for the Chi Square cdf, 
at vector X, D df. For D=1 or 2, the normal (GAUS) and exponential 
distributions are used, respectively. For D>2 and odd, the Lau sum, 
Applied Statistics, v29, 1980, p113, algorithm 147, is used, which ap- 
pears to be the same as Abramowitz and Stegun, p941, 26.4.6. For D>2 and 
even, Abramowitz A Stegun, p941, 26.4.5, is used selectively, depending 
on D and [/X; for certain combinations the Lau sum is again used. 


4(D=1 2)/41,42 

Se (X-D)+(2xD)*0.5 

U-(p,X)p1 

Ci+([6.9xD*0.44) 

Ca-(([/S)<0)x((DS70) ,D>70)/5 7 

C3+(([/S)>0)xLC(DS200) ,D>200)/2.5 3.1x@D 

4(21D)/Odd 

4(((Nec1+0C1/S) x (C3+C2) )<71+D+2) Vv (D>208) ) /Even 

90 ,pUr1-(*-X+2)x14+4+/(( ,X)°.*1(D-2)+2)+x\((p ,X)p0)°. +2x1(D-2)+2 


Odd: N-C1+[(({/S)«(C2+C3) 


Vr (*#- X42) x+/x\1, (X42) °.+(D+2) +aNF20 
40, pU~Vx ((2xX+01) *0.5)xx/Xo ,+(1+2x1(D-1)+2) 


Even: Ve (*-X+2)x+/x\1, (X#2)° .+(D+2)+1N[20 


90 ,pUe , Vxx/(X+2)°.+1D+2 


41:70,pUe~1+2xGAUSS X*0.5 
AZ: US L—-#- £52 

CLEAN 

Q 

Q Cleanup workspace 

Q 

Oe! ! 


(+' 1 Erase all functions and variables which ARE part of UEdit' 

O+' 2 Erase all functions and variables which are NOT part of UEdit' 
[}e'! 

O-' Type anything else to abort' 

Oe! ! 

[-' Your choice: ' 

'4A3' DEA '9((1 2=814!0) ,1)/41,42,43' 
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41: 0WA+DEX>4n13 QA Erase all functions/variables 
40 ,DEX>4n12 Q which are part of UEdit 

a 

A2:O0WA+DEX2(Dtb°c[2]ONL 2)~4n12 A Erase all functions/variables 


~0 ,OEX>(Dtb°<[2]ONL 3)~4n13 
fe) 
43:U+' Aborted’ 


A which are not part of UEdit 


CSVprep I;ROW;C 
a 
QA Create CSV vector from matrix/label vector HMAT[I;], enclose 
A elements containing commas IN a, replace ~ by -, and append 
A vector as nested element to OUTMAT 
QA 
Cs+2,5,0pDse' Preparing line ',(%6I),' of ' ,SQMR+4UR-2 
ROW[ECJ+'a' ,~ROWLCH(vV/"' ,"=ROW-HMATLI;] )/r114pHMAT] ,~'A' 
ROW[('~'=ROW)/r1pROWe1LE',' ,"~s”ROW]e'-' 
OUTMAT-OUTMAT, CROW 


ChgType COL;I;C 
re) 


QA Try to make column label numeric, otherwise change matrix column 
Q to character type. 
A 

'' DEA '30,4LR(COLJ+aCOL>4LR' 

OWA+'C' ToggType COL 

NoNumeNoNum, COL 


ClearUL 

fe) 

Q Display 'upper left screen corner' 

fe) 
Cs+1,10,0pDs~1,1,(~1+4UR,4UC) ,2,4C[1;16] 
Cs+4,10,0pDs+((4UC+4)p' '),,>4LS 
Cs+1,10,0pDse1,1,1,3,2,4C[2; 16] 
Cs-4,10,0pDs-A4UL 


RC+Command;R;R1;C;CMD 

a 

A Enter and execute user's APL commands; RC: 1 - excuted, 0 - escape 
re) 


CMD+'' 

41:Re'[' , (SOAR) ,';',CeOAC),']' 
CMD-CMD Input ‘Enter APL commands ( a = ',ORIG,R,', w = tagged area )' 
~(27=1TCMD) pRC+O 

Q 
Cs+2,5,0pDse' Executing ...',0pCs+7,5,0pDs+4C[2; 18] 
CMD+ (v\CMD#' ')/CMD a Drop leading blanks 
CMD-('aMAT' ,R)Replace CMD A Replace a 
4('w'€CMD)LA2 A Check for w 
+(0=11pR+1+(pOMA)T~ 1+(8<,4MA)/rp, SMA) paE A area marked ? 
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15] 


Rec" Riec(ijR A Prepare indices 
CMD~CMD([1] ,('w(R>°CMAT)')Replace 11CMD A Replace w in 11CMD 
~('w'#CMD[1] ) p42 A -> Normal execution 
2) 
a Work around the missing ‘selective assignment' feature 
'4AE' QEA 'CMDea(1++/A\CMD#''+'')LCMD' A These two lines are for 
'wAE' QEA 'R1 Ass” CMD' A the ‘production version' 
QA CMDea(1++/A\CMD#E'+') SCMD a Use these two lines 
QA R1i Ass” CMD Q for debugging 
~A3 
QA Normal execution 


A2:'3AE' QEA 'aCmMD' Q Production version 
QA 42:4CMD A Debugging version 
fe) 

A3:7A40CeAOR-T0 , CFLAG-RC+1 

fe) 

AE:7A1,O0pCs-11,1,0pCs-2,5,0pDse' Invalid command' 
OMAT+CompBlock;OLR;R;C 


AQ 

Q Return marked block with column and row labels appended if they exist 

QA 
@((10)=R-(V/ASMA>8)/1OMR)/'370,OMATH''''! QA marked rows 
C-(VAAMA>8) /r4MC A marked columns 
(OMAT OLR)+MAT(R;C]4LR 
#(4UC>6)/'COMAT OLR C)+(ALC(R] , OMAT) (ALS,OLR)(1,C+1)' @ add row labels 
@(AUR=3)/'OMAT-OLR[(C] , [1] OMAT' Q add column labels 


OMAT-CompMat MAT; OLR 
fe) 
Q Return MAT with column and row labels appended if they exist 
fe) 
COMAT OLR)+MAT ALR 
#(4UC>6)/'(OMAT OLR)+(4LC,OMAT) (A4LS,OLR)' 
#(AUR=3)/'OMAT+OLR, [1] OMAT' 


RC-CopyMove FLAG;R;C;K;A 
a 
Q Copy or move columns/rows to cursor position 
Q FLAG: i-copy, O-move RC: 1-ok, O-error 
Q 

+((10)=R- (V/AMA28) /r1TpAMA) pAE2 Q rows with marks 
~(0=A/,SMALR; Ce (VASMA28) /111p4MA) 28) p4E1 QA columns with marks 
Cs-2,5,0pDse' Working ...',OpCs+7,5,0pDs~AC([2; 18] 

~CAMR AMC=(pR) ,pC)/A2,41 
AQ 
SE1:7A4£0 ,MSGe'Unable to copy/move rows and columns simultaneously' 
AE2:MSG-'No rows or columns highlighted' 
AEO:-RC-0,0pCs~11,1,0pCs-2,5,0pDs-MSG 
A 

A1:K-((OAR-1)T14MR) ,R, (OAR-1)4.4MR A Copy/move rows 
Ae R+(pR)xR24AR 
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pp 
© 
bend 


A 


A 
ra) 


A 


R 
A 
A 
A 


A 


A 


A 


A 


Q 
4 


A 


a 


@(~FLAG)/'K+K([(1pK)~A] ' 

(MAT OMA ADM ADA SLC)+(MATEK;]) COMALK; J) (QDM(K;] ) (QDALK;] ) (QLCLK]) 
~FLAGLA11 

SMACLA;]+8/4MALA;] 

ADALA;J@(7112+4MP(2;])/OAF 4c(1;1+4MALA;]] 

11:4MR+TpK 

DISL+VerShift 

~0 , RC-CFLAG+1 


2: K-((SAC-1) Tr A4MC) ,C, (AAC-1) $2.4MC A Copy/move columns 
A+C+ (pC) xC2AAC 

@(~FLAG)/'K-K[(21pK)~A) ' 

(MAT SMA ALR)+C(MAT[; K]) COMAL; K]) (ALRLK)) 

(ADM ADA SCL ACT)+CADML;R) ) (QDAL; RJ) COCL[; R)) CQCTLR-€GC™ kK) ) 

ASMP-AMP[: K] ,0,3,0,0,0 

SMP(1;J+0,~14+\2+4MP(2;] 

~FLAGIA21 

ASMA[; A] +81 4MAL; A] 

ADA[L; €GC” A)+(2+4MP(2;A])/OAF 4C(1;1+4MA[; AJ] 


21: 4MC+TpK 
ACL(RC+CFLAG+1 ;]+€(2+7144MP[2;]) 1” (8 1AMC) 
DISBeHorShift 
C-Cross; RCM; ORCM; COL; MSG; PAR; Ind1; Ind2; Uni1 ;Uni2;Q0Uni1;0Uni2;RI;I; RATT; 
ASP; MM; CM 
Crosstabulation of two matrix columns; RC: 1- ok, 0 - escape 
COL+'' 
1:~(27=1TCOL+COL Input ‘Enter column numbers')pRC-O 
'WAE1' QEA '~(2#pCOL+aCOL)pAE2' Q must be numeric, 2 columns 
+(A/ COLEVAMC) LAE3 A columns must exist 
PAR~askApar COL A Get column parameters 
Te' 0 
2:4(27=1TI+I Input ‘conditioning columns ... ? (ENTER if none)')p0O 
@(I=,' ')/'743,pCM-MAT[; COL] ' A empty: no condition 
4(27=1TRI-GetCond I)p0 A get condition vector 
4(~1=1TRI)pa2 
~(O=TpCM-RI/MAT[; COL) )pak4 A extract matching elts 
3:Cs*2,5,0pDse' Crosstabulating ...',0pCs+7,5,0pDseAC[2; 18) 
(Ind1 Uni1)+((COL[1])(>PAR[1]))MakeIndex CM[;1] A get index/label 
(Ind2 Uni2)-((COL[2]) (>PAR(2] ))MakeIndex CM[;2] A vectors 
RI+RICARI+Ind2+(Ind1-1)xpUni2) 
RCM-((pUni1) ,pUni2)pRI freqacnt(pUni1)xpUni2 A RCM - cross matrix 
Save values for pooling 
ORCM+ RCM 
OUni1+Unii 
OUni2-Uni2 
Create and edit cross mat 
#(MM+(GetTitle COL[1]),'_',GetTitle COL[2]),'+CtPrep RCM' 
OWA-USER MM 
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70 ,RC+1 
Q 
Q Error handling 
4E1:~AE0,MSGe'Input must be a numeric vector' 
OE2:74E0 ,MSG-'Specify 2 columns, please' 
OE3:MSGe-'Non existing column number specified' 
4E0:741,0pCs-11,1,0pCse2,5,0pDs-MSG 
OE4:7A42,0pCs-11,1,0pCse2,5,0pDse'Nothing left to count !7!7' 


CM-CtPrep R;E;S;X;D;BL;RT;C;R1;CHI 

Q 

Q Create cross matrix CM, attribute matrix RATT 
Q 


E-((+/R)o .x+7R)+RTH+/+/R QA E - expected frequencies 
Se (R-E)+E*0.5 QA S - standardized residuals 
X~+/+/(CR-E) *2)+E a X - chi-square 
De (~1+pUni1)*x~1+pUni2 QA D - degrees of freedom 
~(D=0)pA1,CHI+MISSAN A If D>0 
CHI-1-D CHISQ X A CHI - p-level 
Q 
Q Generate display matrices 
Q 


O1:BL+(' '),(1+71TpR)pMISSAN 

Cr1ltpCM-(1,2+pUni2)p(' '),(8"Uni2) ,¢'total' 

Rie3xpUnil1 

CM-CM, [1] (R1,C)p(#" Uni1) ,R, (+/R) , (8° Unil) , (S) , ((+/R)+RT) , ((pUni1) , C)pBL 
RATT+(R1,C-1) pC C(pUni1) , C-2)p0) ,6, (1++41.96 2.54°.<|S),0,((pUni1) ,C-1)p0 
CM-CM,[1](<'total') ,(+4R),RT 

CM-CM,[1](<'column +'),((+4R)+RT) ,MISSAN 

CM-CM,[1] BL 

CM-CM, [1] (<c'd.o.f.'),D,(~1tpR)pMISSAN 

CM-CM,[1] (<' Chi-sq') ,X,("-1TpR) pMISSAN 

CM-CM, [1] (¢'signif') ,CHI,(~1TpR)pMISSAN 

RATT-RATT,(1]6,(1] (5, C-1)p0 

SSP-1,[0.5] (~1TpRATT) p2 Q 2 decimals by default 


RC-DelCol C;N 


Q 
Q Delete columns indexed by C; RC dummy 
Q 
Cs+2,5,0pDse' Working ...',OpCs+7,5,0pDs+A4C[2; 18] 


(ALR MAT SMA)+(SLRUEC] ) (MATL; C]) (OMAL; Ce(1.4MC)~C] ) 
(ADM SDA)-(4DM[; N]) (SDAL; Ne €GC C]) 

(ACL SCT SAC)-(SCLD;N]) CACTLN]) CSACLOMCHTp , C) 
ACO-ACOLAMC 

SMP+SMP[ ;C] ,0,3,0,0,0 

OMP[ RC+CFLAG+1;J]+O ,~14+\2+4MP[2;] 
SCL[1;)~€(2+7-1L4MP[2;]) ts" .OMC 

DISB+HorShift 
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0] RC+DelRow N;K 

1] a 

2] @ Delete rows indexed by N; RC dummy 

3] A 

Cs+2,5,0pDse' Working ...',OpCs+7,5,0pDs+Ac[2; 18] 

5] (ALC AMA ADA ADM MAT)+(CALC(N]) (SMALN;] ) (SDALN;]) (QDMEN; ]) CMATOIN@ (1 4MR)~N;] ) 
6] RC+CFLAG+T1, AAR+AARLAMR+Tp ,N 

7] ARO-AROLAMR 

8] DISL+VerShift 


VU oa ee 
rf 
—) 


0] WDisCol;N 


Convert matrix column to character type for display 
Update width entry in parameter matrix SMP 

he column width 

C,COL column number, converted column (global) 


GO 
ees) 
DDODODODD 


7] 7(€41,42,43) (1+4MP(3;C]] 

8] 41:744,pCOL+(~21T1,pCOL) pCOL+>MAT[; C] 
9] A1:744,pCOL+(2t(pCOL) , 1) pCOL+>MAT[; C] 
10] A2:+44,pCOL+NumToChar MAT[;C] 

11] A3:COL+FromDays MAT[;C] 

12] A4:W+2+4MP[2;C]+3/[ (tpC>ALR) [-1TpCoL 


Character column 
Character column 
humeric column 
date column 
column width 


AAAI AAMA AANA Aaa 
ez) 
— 

DDODODD 


re 
© 
LJ 


RC-Draft;RCM; ORCM; COL; MSG; PAR; IU; LI1;LI2;LU1;LU2; Ind1;Ind2; Uni1;0Uni1;Uni2; 
OUni2;LR;RI; RATT; DFLAG; PAR; C1;C2;TOT;4SP; MM 

iJ a 

2] Qa Crosstabulation of multiple matrix columns; RC: 1 - ok, 0 - escape 
3] A 

4] COL+'' 

5] A1:7(27=1TCOL+COL Input ‘Enter column numbers - ENTER for all' )pRC+O 

6] «a(COL=,' ')/'COL+t.4MC' 

7] '+E1' DEA '+(22pCOL+4COL)paE2' Q must be numeric, > 2 columns 
8] 3(A/COLEL~1TpMAT) I AE3 Q columns must exist 

9] A 

10) 42: PAR+askapar™ COL Q Get classific. parameters 
11] a 

12) Cs+2,5,0pDse' Crosstabulating ...',0pCs+7,5,0pDs~AC([2; 18] 

13] LR+(TOT, TOT+~1+tpCOL)pCi+0 

14] IU->(COL,~<” PAR) MakeIndex”<(1]MATL[; COL] 

15] (LI1 LI2)"(-1!1U(;1)) (1470; 1]) 

16] (LU1 LU2)+(&C( TOT, TOT)p~14IUL;2] )(CTOT, TOT)p14+IU[;2] ) 

17] A3:2(TOT<C1i+1+C2+C1)pa5s 

18] (Ind1 Unii)+*2°LI1(C1]LU1(C1; 1] 

19] A4:-9(TOT<C2-C2+1)pa3 
20) (Ind2 Uni2)+>"LI2(C2] LU2(1; C2] 
( 21) RI+RICARI+Ind2+(Ind1i-1)xpUni2] 
[ 22] 7+a4,LR(C1;C2)-<((pUni1) ,pUni2)pRI freqacnt(pUni1)xpUni2 
[ 23] a 
[ 24] a Display tables, use Alt-Cursor for scrolling 
[ 25] AaS:C1+C2+DFLAG-RC+1 
[ 26] a6:(ORCM OUni1 OUni2)+(RCM Uni1 Uni2)+>"LR(C1;C2]LU1 (C1; C2) LU2(C1; C2] 
[ 27] a (MM-(GetTitle CoL(C1}),'_',GetTitle COL([1+C2]),'+CtPrep RCM' 
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5] 
6] 


8] 


10] 


DFLAG-USER MM 

LR(C1;C2]-cRCM 

Lu1(C1;C2)-cUnil 

Lu2(C1;C2)-cUni2 

~(DFLAG=0 1 “1 2 ~2)/0,4Ri, ALe,ADo, AUp 
ORi:+~46,C2-TOTLC2+1 

ALe:746,C2-C1[C2-1 

4Do0:746,C1+C2(C1+1 

AUp:746,C1+1[C1-1 

Q 
Q Error handling 

\E1:7AEO,MSG-'Input must be a numeric vector' 
AE2:-A£0,MSG-'Specify more than 2 columns, please' 
4E3:MSGe'Non existing column number specified' 
AED: 741,0pCs+11,1,0pCs+2,5,0pDs-MSG 


Z-Dtb X 
fe) 
Q Drop trailing blanks from an array X 
RQ 
Z-((-ppX) 1/1 [pZ)tZ ,1-(X=' ')11) 4X 


RC+EdLab;W;N 
a 
QR Edit column labels in bulk mode; RC dummy 
Q 

OWRe OSR-3+OUR-2+OACHOCOH-RCH1 
41:DISBeHorShift 


Cs+7 ,8,0pDs~(DISA+MakeDisA) ,OpCs~1,8,0pDs-4UR,4UC, 4WR,4WC,2,4C[1;1] 


Cs-2,8,0pDs-DISPrMakeDisP 

N- QUC+OMP(1 ; SAC) -4MP[1 ; 4C0) 
Cs-1,1,0pDs~1,N,2,(1+4SC-N) LOMP(2;4AC] ,2,4C(1;16] 
Cs-7,1,0pDs~AC(2; 16] 


~(27=1TN-(SACOSLR) Input ‘Enter new label for column ' ,t4AC)pa2 


SLR[SAC)+CN 
OCL[2;4MP([1 ; SAC) +1W]-(WePlaceEntry SAC)TN 


@ (AMCZSACHAAC+1)/'4A1 ,SCO-SCOl(OWC2>(+/OMP[1 2;4AC])-SMP[1;])21' 


SACKAAC-1 
A2:%(OAC#1)/'CFLAG+1' 


RC-FreqTab; CLR; COL; I; UNI;R; MSG; ELab; PAR; CUM; REL; SSP; RATT; FM; MM; RI 


Q 
Q Frequency counts on a specified matrix column 
mR RC: 1 - ok, O - escape 
Q 
~(27=1TCOL+askdcol ‘Enter column number')pRC-0O 
~(COL=,' ')p0 
Q 
~(27=1TPAR+askapar COL)p0 
Q 
QR Conditional freq tabs ? 
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A Get classific. parameters 
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41:4(27=1TI+I Input ‘conditioning columns ... ? (ENTER if none)')p0 

@(I=,' ')/'2a2,0pI-MAT[; COL] ' A Empty: no condition 
~(27=1TRI-GetCond I)p0 A Get condition 
4("1=1TRI)pal 

+~(O=pI-RI/MATL; COL) )pacF1 A Extract matching elements 
Q 
Q Now I is the vector to perform the frequency count on 


Q PAR holds the classification parameters if I is numeric 
Q 


42: Cs-2,5,0pDse' Counting ...',0pCs+7,5,0pDs-4C(2; 18) 
(R UNI)+(COL PAR) MakeIndex I A create index vector and labels 
CUM++\R-RCAR] fregacntpUNI A cumulative/distinct frequencies 
REL+RtpI A relative frequencies 
'S) 
Q Prepare matrix display FM, and call USER recursive 


FNe1 So(' ')('Freg')('Rel.')C'Cum.")(' ") 
FM-FM,(1J&(5,pR)pUNI,R, REL, CUM, ((Rx402[/R) +P Rx (40<[/R)x40+f/R)p 
FM-FM,(1](' '),(3pMISSAN),' ' 
FM-FM,(1] (¢'total'),(+/R),(2pMISSAaN) ,' ' 
RATT+(~1+pFM)p0 
OSP+2 491,1,1,0,99,2,99,99 
a4(MM-'FR_',GetTitle COL) ,'-FM' 
DWA-USER MM 
40 ,RC+H1 
Q 
a Error handling 
4E1:7A1,0pCs*11,1,0pCs*2,5,0pDse'Nothing left to count !7!7' 


YMD+FromDays DAYS;D;M;Y;D1,Y1;I;W 
fe) 
QA Convert days since 02/29/0000 to date array 'MM-DD-YYYY' or similar 
Q format according to DATE; sets MISSAN to '' ' 
fe) 
DAYS [We (MISSAN=DAYS) /1pDAYSe , LDAYSJ+1 
D1-DAYS-(365~ Y) +-/ LCY¥- LDAYS+365 .2425)°.+4 100 400 
4(xoI+(D12366)/vpD1) 141 
D1 (I)+DAYS(I)-(365x ¥1)+-/LCY1-Y(I)-Y(IJ+1)°.+4 100 400 
41:+(xpI-(D1<0)/1pD1) 442 
D1 (I)+DAYS(I) -(365xY1)+-/L(vi+Y[T]-Y[I]-1)°.+4 100 400 
42:M-(31 30 31 30 31 31 30 31 30 31 31 29/2212) [D1] 
D-D1-(306 337 0 31 61 92 122 153 184 214 245 275)(M] 
YMD~(—14€((3,1,1) [DATE] p~'0') ,“<'6-')5CCY+MS2) ,M,(1.5)D) 0; DATE] 
YMD(W;Je' '' 


Z~GAUSS X;A;B;C;D 

Orig. program by Prof. H. Larson; modified for APL2 

Evaluates normal cdf at vector X. For |X<4, 26.2.11 in Abramowitz and 
Stegun, p. 932, is used. For large X, the continued fraction in Wall, 
p. 357, 92.11, is used at depth 16. Appears to give at least 13 signi- 
ficant figures. 


DDDODODD 


*((p,Ae(| X<4)/ZeXe , X)=p,X)/1+0LC 
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Be (| X24) /X 
+((p,B)=pX)/BIG 
Ae O .5+(+( (*A%2) x02) #0 .5)*+/( (AS. *7 142x041) =( (pA) , C+1)px\7142x1(C+H10 
[[10x[/1A)+1) 
Z((1X<4)/rpX] A 
~((p,A)=pX)/0 
BIG: C-16589790 56295540 52050600 19934640 3680160 341952 15232 256 
De2027025 32432400 75675600 60540480 21621600 3843840 349440 15360 256 
Be 1-( B+2x ( (02) x*Be2)*0.5)x(+/( (0.5, Be2)°. *0,147)((p,B) ,8) pC) ++/((0.5~x, 
Bx2)°.*0,18)«((p,B) ,9)pD 
Z[C 1X24) /r1pX] -B 


R+-GC C 
Q 
Q Return a vector of display column numbers corresponding 
Q to matrix column C; called always with ~ 
Q 
Re SMP[1; C]+12+4MP[2; C] 


RC-GSout ; FILE; COL 

Q 

Q Export matrix column to an APL2 vector (numeric column) or a 
Q character matrix (character column) for use with GRAFSTAT 

Q RC: always 0 

Q 


4(27=1TCOL+askacol 'Enter column number to export')pRC-0O 

~(COL=,' ')p0 
a 

FILEe** 

41:+(27=1TFILE+FILE Input ‘Enter the name of the vector/matrix')p0 
+(O#0NC FILE) pAEr 

@FILE,'+>MAT[;COL] ' 

+0 
Q Error handling 

SEr:7A41,0pCs*11,1,0,pCs-2,5,0pDs~e'Name is already in use' 


RC-GetBlock;R;C;N;NMAT;K 

Q 

QA Insert a matrix into the current row or column location 

Q RC: 1- ok, O - escape 

Q 

41:+(27=1TNe'' Input 'Enter name of the APL matrix to insert')pRC-O 
4(240NC N)/'-41,0pCs-11,1,0p9Cs+2,5,0pDse''No matrix '',N,'' found''' 
NMAT+3 aN 

a 

Cs+11,1,0pCs+2,5,0pDs~'insert Rows, Columns, Overlay (R/C/0O) ?' 
+(A/67 79 82 99 111 114#K-11TDs,0pCs-3,1)/OLC 


Cs+2,5,0pDse' Working ...',OpCs+7,5,0pDs+4C[2; 18] 
RC-CFLAG+1 

~(82 114 67 99 79 111=K)/42,42,46,46,410,410 
A 


Q Insert rows, a vector is considered a 1x(pV) matrix 
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42:(R C)+pNMAT+(~211,pNMAT)DNMAT 
AACrACOw1 
&(AMC<C)/'NMAT+(CeAMC) Tt [2] NMAT' 
TryNum™ (O#CTAMP[3;])/2C 
#( QMC>C)/'NMAT+NMAT, [2] (R,SMC-C)p(MISSAN,'' '')[2-A4MP[3;(2.4MC)~2C]]' 

43: MAT+((OAR-1)T01) MAT) , [1] NMAT, [1] (QAR-1)$(1) MAT 
AMA~((SAR-1)T (1) SMA), (1) (CR, AMC) pO), [1] (AAR-1) 401] AMA 
~(AUC=6)p0 
ALC+((AAR-1)TALC),(Rp' '),(AAR-1)44LC 
+0 

A 

QA Insert columns, a vector is considered a (pV)*1 matrix 

A6:(R C)+pNMAT+ (21 (pNMAT) ,1)pNMAT 
#(AMR<R)/'+A7 ,pNMAT+AMRt [1] NMAT' 
@(AMR>R)/'NMAT-NMAT,[1) (C(AMR-R) ,C)p(MISSAN,'' '')[2-Num"NMAT[R;]]' 

AT: MAT+(X(SAC-1)t [2] MAT) , [2] NMAT, [2] (SAC-1)4[2] MAT 
AMA+((AAC-1)T [2] AMA) , [2] (CAMR,C)p0) , [2] (AAC-1)1 [2] AMA 
AMP+ ((AAC-1) Tt [2] AMP), [2] (Q(C,5)p0,0,0,'C' ,99) , [2] (AAC-1)4[2] AMP 
+(AUR=2)p0 
ALR+((AAC-1)TALR),(Cp' '),(QAC-1)L4LR 
+0 

Q 

A OQverlay block, cursor in upper left corner, vector = 1xpV matrix 

A10:(R C)+pNMAT+(~ 2171, pNMAT)pNMAT 
#(R>Ke1+4MR-SAR)/' NMAT+Kt(1] NMAT' 
#(C>K-1+AMC-AAC)/'CH1LpONMAT+KT[2] NMAT' 

TryNum™ ((AAC-1)40#KTOMP[3;] )/(SAC-1)42K-AAC+C-1 
MAT[~1+SAR+2T pNMAT; ~1+4AC+211L0NMAT]—NMAT 


Col+GetColor 
fe 
Q Get color attribute for row or column, Col + 0 1f escape 
AQ 
A1:Cole'' Input ‘Enter color level (0... 6 )' 
4(27=1TCol)/'+Col+0' 
'aAE' DEA '+(0#ppCol+4Col)paAE' 
~+~(Co1€0 ,16)p0 
a Error handling 
AE:+A1,0pCs-11,1,0pCs+2,5,0pDs~'Input must be € [0,6]' 


R+GetCond I;MSG;K;L;N;V 


Q 

A Get conditioning vector for FreqTabs, CrossTabs, 1.e., 

A create a boolean ‘yes/no' of rows to include 

QA R - 27 = Escape pressed ~ do nothing 

A ~1 = Syntax error in I 

A else boolean vector indicating matrix rows to choose 
A 
fe) 


Parse conditioning vector 


~+(A/I€'0123456789()/~vavan, ')4AE1 A all symbols valid ? 

Ne (Ke Le I) €'0123456789' A extract digit positions 
K[(“N)/apK]e' A cancel operators 

Ke , aK A vector of numbers 
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13] 
14] 
15] 
16] 
17] 
18] 
19] 
20] 
21] 
22] 
23] 
24] 
25] 
26] 
27) 


0] 
1] 
2] 
3] 
4] 
5] 
6] 
7] 
8] 
9] 
10] 
11] 
12] 
13] 
14] 
15] 
16] 
17] 
18] 
19] 
20] 
21] 
22] 
23) 
24] 
25] 
26] 
27) 
28] 
29] 
30] 
31] 


+(A/KEVAMC) LAE2 QA valid column numbers ? 
L(N/zpL)~'1' A all digits + '‘1' 
L+ (NRO, ~14N)/L A reduce multiple digits 
'4AE1' GEA '3(A/0 1#4L)pdE1' A valid relation ? 
AQ 
(I R)+1 27 
A41:7-(R=1tV-GetCrit K(I])po A Get criteria for each vector 
L(Lv'1']+<c'(',(Ce#v),')' Q Put it into template 
~((pK)2I-I+1)pai 
“0, ReEaeL A Execute template 
Q 
4E1:7-AEO ,MSGe'Syntax error' 


AE2:MSG-'Invalid column numbers specified' 
AE0: Cs+11,1,0pCs-2,5,0pDs-MSG 
Re“ 1 


R-GetCrit I;C;V;NOT; MSG 


AQ 

Q Get conditioning criteria for column I 

A R - 27 = Escape pressed, cancel operation 

A else boolean vector indicating matrix rows to choose 

AQ 
Ye'! 

O1:-(CR+27)=1TV-V Input 'Enter conditional criteria for column ',%3I)p0 
4(Vz,' ')/'+0,R-AMRp1' A empty vector: unconditioned 
VECV='"')/apVv)-'a' QM Replace ~ by A, parse vector, celete 
V-Dtb’ (Parse V),~' ' A trailing blanks of each element 

A 
R-AMRPNOT+O 
@(V[1iJec,'~')/'+(0=pV¥-(NOT+1)1V)p0' A Check for NOT condition 

AQ 
C+MAT[; I] 
~(1 2=4MP(3; I] )/44,43 

fe 
~0 ,R-|NOT-CEV Q Character column 

A 

A3:7(V/0=V+E€ToDays” V)145, 4E3 A Date column 

Q 

44:4((,' ')S€V)/'+45,V2pMISSAN' A Numeric column 
‘+4E1' GEA ‘Vea V' 

45:4(2|/pV)paE2 A Argument pairs only 


V-((0.5xpV),2)pV 

~0,R+ | NOT-vA(VD;1J]°.<C)AV[L;2]°.2>C 
re) 
AE1:~-AE0 ,MSG-'Limits must be numerical' 
AE2:~ASE0 ,MSG-'Invalid number of arguments’ 
OE3:MSG-'Invalid date specified' 
4E0:741,0pCs-11,1,0pCs-2 ,5,0pDs-MSG 
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RC+T GetEntry N;K;L;R 


QA 

Q Enter new value for active cell 

Q T: 0 - normal entry RC: 0 - escape 
Q 1 - bulk mode entry i, = OK 

AQ 


A1:7(27=1TN-N Input ‘Enter new value for active cell')pRC+0 
Q 


NeC'aMAT(', (84AR),';', (8SAC),']') Replace N Q 
“('w'EN) 142 Q 
+(0=11pR+1+ (pAMA)T~ 1+ (8S ,AMA)/rp , SMA) pA2 

Ne C'w((c" c(i] R)>"CMAT)') Replace N 

fs) 

A2:4(SAR>OMR)/'OWA+InsRow' Q 
@(SAC>AMC)/'OWA+InsCol ''C''! fe) 
~+(43 ,44,45) (1+4MP(3; 4ACJ] 

Q 

43:746 ,MAT[OAR; SAC] CN A 

Q 

O4:4a(N=,' ')/'706,MATLSAR; SAC] -MISSAN' A 
'aAE' DEA '346,MAT(SAR; SAC] eaN' 

Q 

O5:4(N=,' ')/'246,MATLOAR; AAC] -MISSAN' A 


~(O=N+ToDays N)pAE 
MATLSAR; SAC] HN 
Q 
46 :°TLA7 
~A8 , SDM[OAR; SMP(1 ; SAC] +. OMP[2; SAC] J-SMP(2; AAC] TSEMAT[OAR;A 
Q 
47:OWA+PlaceEntry SAC 
48:70, RC+CFLAG+1 
) 
AE:7A1,0pCs-11,1,0pCs-2,5,0pDs-'Invalid input' 


RC+GetFieldType; TYP; DEC;I;T 
Q 
Q Get field types of a new matrix 
A RC: 1 - ok, O - escape 
A 
Te! L} 
41:T+T Input 'Enter field types ( C / D/ Nx / Ex/ A )' 
4(27=(I+1) TT) pRC-O 
~(2<ppT) paE 
T+Parse T 
AMP+4 0910 
A2:2(ParseType I>T)44E 
AMP- AMP, [2] (3+ (DECxDEC#99)+7* TYP=2) , TYP, ('CND') [TYP+1] , DEC 
+((pT)2I-I+1)pa2 
AMA+(pMAT+(~2T1,1,pT)p((' |), MISSAN, MISSAN) [OMP([2;]+1])p0 
AMPe (0, +\2+4MP[1;]), [1] 4MP,3,0,0,0 
~0,e(ASLC ALR ALS OUR SUC RC)H(,' ')C(pTp' ')C' ')2 6 1 
Q 
Q Error handling 
AE:741,0pCse11,1,0pCs+2,5,0pDs~e'Invalid input' 
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replace a 
replace w 


add new row ? 
add new column ? 
character input 


numeric input 


date input 


truncate 
if bulk 
else 
adjust 


AC] 


DDD D 


Q error 


ree Vee Tete eve eae ae er ef a reve Vea reer rrr weir ve ie Ur ieririrairoirsar ir 


eA IIe IAAP es 


0) 
1] 
2] 
3] 
4] 
5] 
6] 
7] 
8] 
9] 
10] 
11] 
12] 
13] 
14] 


FILE-GetFileName FILE; EC 

A 
Q Get File name for write operations, check for existing file 
Q 

A1:7AsharelAE 

~(27=1TFILE-FILE Input 'Enter DOS file name')pa3 
~(0#ECeAropen FILE,',D')pa3 

Aclose 

~(GetYN 'File already exists, delete it')tal 
~AsharelaE 

+(0=ECradelete FILE) pa3 
9A2,0pCs+11,1,0pCs+2,5,0pDs~'AP210 error: ',tole[|EC;] 
SE: Cs+11,1,0pCs~"2,5,0pDse' AP210 not active' 

42: FILE ,27 

43: Aclose 


NEwW-Get InName 

fe) 

Q Get name of new imported matrix 

fe) 

41:-(27=1TNEW-GetName '')p0 
#(2=ONC NEW)/'+(GetYN NEW,'' already exists; overwrite it'')4al1' 
'4A1,pCs-11,1,0pCs"2,5,0pDs~e''Invalid name''' OEA '+aNEW,''+O''! 


NAME-GetName NAME 


fe) 
Q NAME='' get and check name of new APL matrix 
Q NAME#'' check name 
Q Returns the name if ok, 27 if Escape 
'e) 
~(0<pNAME)pa2 
NAME+'' 


A1:-(27=1TNAME-NAME Input 'Enter name of the new APL matrix')p0 
A2:7(3#0NC NAME)p0 

a 

Q Error handling 

~A1,p9Cs-11,1,0pCs+2,5,0pDs-NAME,' is a function' 


R-GetTitle C;S 


ie) 
Q Create title for submatrices 
fe) 
~(' 's>ALR(C])pal 
Re (8 oR) tTRe>ALR(C] 
~((DAF R[1])€S-(64+2126) , (964126) , 182,247) tal a check for a valid 
4(A/V/(OAF 14R)°.€S,95,253 ,47+2%10) p0 a APL object name 
Aa 
A1:Re'C' ,3C QA use column number as name 
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oe oe oe ee oe oe 
re 
wy 
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© 
reat 


AAA AM MARA ANA SSMS 
pp 
=) 
test 


RC+Get YN TXT; K 

AQ 

Q Ask for confirmation with prompt text TXT 
QA RC: 1 - yes, 0 - no 


A 
Cs-11,1,0pCs+2,5,0pDs-TXT,' (Y/N) ?' Q display text 
~(A/78 89 110 121#K-1TDs ,0pCs+3,1)/0LC A get answer Y/N 
Rc-(78 110 89 121=K)/0 0 1 1 A set return code 


RC+Help;AA;A4B; AP 
QA 
QA Popup help screen, adapted from EDIT2; RC: dummy 
A 
~(RC+2=0NC 'Ahelp')/A1 
90 ,0pCs+11,1,0pCfS-2,5,0pDs+'Helpscreen not available' 
Q Hide cursor 
A1:Cs+12,0,0pCs-12,0pDs+6 1 1 
Q Format help field 
Cse1 7,0pDs~3 7 19 43 2,ABe16x{AC[1;1]+16 
Ds-(,(18 42pA4C[1;20]) ,aB), (AB+(4C[1;20]+16) ,42p16x LAC[1 ; 20] +16 
AP+O ,OpCs+7 7 
A2:Ds-(42t' UEdit Help screen Esc:Quit'),'g',(42p'-'),'E 
Cs-2 7,0pDs-Ds,(,(16 42T(16xAP)1[(1]Ahelp) ,'§'),'™' ,(41p's'), ' 
Q Esc, PgUp, PgDn are ok 
~(A/27 1=AB+2TDs,OpCs~3 1)/0 
+((0=V/AA) ,AA“73 81=ABY2>AB)/A2, 2943 
A3:7A2,AP+O[ (~1+[ (tpAhelp)+16) LaP+((73=AB)/-~1) , (81=AB)/1 


RC+High F;K;R;C 

a 

Q (Un-)Highlight areas, (RC: 1-changed, 0-escape) 

QA F: 1-field(short), 2-field, 3-block, 4-row, 5-column, 6-unhighlight 
A 


~(V/AAC SAR>SMC AMR) pRC+O Q cursor on valid field ? 
Cs+2,5,0pDse' Working ...',O0pCs+7,5,0pDs+Ac([2; 18] 
4FDA1,A2,43,44,45,A7 
Q 


A1:7A6,0(R C K)-CHIGHR HIGHC HIGHA)~SAR SAC(C10|—1+14>4ktyp([PRESS] ) 
A2:2(27=1TK-GetColor)p0 

~A6,0(R C K)©CHIGHR HIGHC HIGHA)+-SAR AAC K 
A3:-(CHIGHR=0)p0 

~A6,0(R C K)~(C(HIGHRLOAR)+0,%] HIGHR-OAR) ( (HIGHCLOAC)+0,%| HIGHC-AAC) HIGHA 
A4:2(27=1TK-GetColor)p0 

9A6,p(R C)-AAR(.AMC) 
\5:7(27=1tK-GetColor)p0 

CR C)—(v AMR) SAC 
46: AMA[R;C]~K+8~x{AMALR; C] +8 
ADA[R;€GC°C}+(2+4MP[2;C])/((p,R),p,C)pOAF SC(1;1+4MALR;C]] 
AUL[3]~(1+V/0<8| ,SMA)>' ' 'H' 

ClearUL 

~0 , RC-CFLAG+1 


Q 
AT: SMA+8x LAMA+8 a Un-highlight 


86 


[rey Pi ran Vl Se | 


VCve a ete en eo 


Ue vw eee nen eee ee tee ee NE ae ee ee ea 


Loar Seer ee tea eee ae eee ae a ee 


15] 
16] 
17] 


ADA+(~142+4MP(2;])/DAF 4C[1;1+4MA] 
AUL[3])+' ' 

ClearUL 

RC-CFLAG+1+HIGHR-HIGHC+O 


ReHorShift 
Q 


Q Adjust column labels, field types/widths, sets DIST, returns DISB 


Q 
Cs+1,1,0pDs+1 , AUC, (AUR-1) ,4WC,2,4C[1; 16] 
Cs+4,1,0pDs+DIST+, ((AUR-1) ,OWC) TAMP[1 ; 40C-4CO) 4 [2] ACL 
Cs-4,3,0pDseR-SSCt((SUC-1)p' '),4MP[1;4CO] L4CT 


RC-InCSV;F;IN;R;L;NEW 
Q 


Q re-define field 
Q display labels 
Q display formats 


Q Read comma delimited file (CSV format) into nested APL matrix 
Q Fields are expected to be enclosed in double quotes (A) if they 


QA contain commas. RC: 1 - ok, O - escape 
Q 


~QuitlRC+O Q Current matrix changed since last save ? 


Fe'' 


41:~(27=1TF+F Input ‘Enter CSV file name (with path if necessary)')p0 
Cs+2,5,0pDse' Reading ',F,'...',0pCs+7,5,0pDse4c(2; 18] 


~(O=ppINeAfv F)p0,pCs+7,5,0pDs~-4C[1; 18] 
4(27=11 NEh+ Get InName) pO 


Cs+(R-2) ,5,0pDse' Parsing line 1 of ',tL+pIN 
MAT+(1, MAT) PMAT+Parse>IN[1] 
43:Cs+2,5,0pDse' Parsing line ',(%R),' of ',3L 
+~(L>R+R+1)pA3, pMAT+MAT, [1] Parse>IN[R] 
fe) 


¢(ORIG-NEW) ,'«MAT' 
RC-"1+MakeParam 
CFLAG+O 


RC-InDOS; F; LEN; IN; INO;R;C; NEW 

Q 

Q Read DOS file into nested APL matrix 
Q RC: 1 - ok, O - escape 

Q 


*QuitlRCe+o Q Current matrix changed since last save ? 


LEN+Fe!! 


QA 
QA 
Q 


A 
Q 


Parse file 
into nested 
APL2 matrix 


Save matrix in ws 


Restart session 


41:7(27=1TF+F Input 'Enter DOS file name (with path if necessary)')p0 
Cs-2,5,0pDse' Reading ',F,' ...',0pCs+7,5,0pDs+4C(2; 18] 


~(O=ppIN->afv F)p0,pCs+7 ,5,0pDs+AC[1; 18] 
+(27=1T NEW Get InName) p0 

O3:7(27=1TLEN+LEN Input ‘Enter field lengths')p0 
'4AE2' DEA '+((1lpIN)<+/LEN+&LEN) paE3' 

Q 
MAT+((Re(C¥1) TpINOKIN) ,0)pr0 

44:Cs-2,5,0pDse' Parsing column ',(8C),' of ',3pLEN 
MAT+MAT, Dtb’<(2] LEN(c]t(2] INO 

~( (pLEN)2C+C+1)p44, pINO~LEN[C] 1 [2] INO 
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QA 
4(ORIG-NEW) ,'«MAT' 
RC+-~1+MakeParam Q Create matrix parameters 
~CFLAG-O Q Restart session 

19) 

Q@ Error handling 


4E2:743,pCse11,1,0pCs-2,5,0pDs~'Numeric data only, please' 
4E3:743,pCse11,1,0pCs-2,5,0pDse'Error in field lengths' 


RCeInitPrt;X;A 
A 
Q INIT ~-- Initialize HP LaserJet (RC always 0) 
Q Reset HP LaserJet and load down APL2 font. 
Q The font will be permanent, so that it is not deleted from 
Q printer memory by a following reset. 
A 
OWA+81 OSVO 'X' 
~(2#0SVO 'X')paEr 
Q 
Q Reset printer, download fonts, initialize 
Cs+2,5,0pDse' Downloading ...',0pCs+7,5,0pDs-4C[2; 18] 
X-2 ,OpX-0 
ArX 
OWA+OSVR 'X' 
#(21A)/'Cse11,1,0pCs-2,5,0pDse''Portrait font AP1OORFN.SFP not found''' 
4(2<A)/'Cs+11,1,0pCs-2,5,0pDse''Landscape font AP1OORFN.SFL not found''' 
~RC+O 
Q 
AEr:pCse11,1,0pCs*2,5,0pDse' Unable to share AP81' 
ReCLR Input MSG;C 


Q 

Q Prepare screen for user input; clear input line if CLR empty, 

Q otherwise fill input line with CLR and locate cursor behind it, 
Q display start message, get user input 

Q 


Cs+7 ,5,0pDs+AC[1; 18] QR Set message line to no-blink 
Cs+2,5,0pDs+((4SC-17)TMSG) ,'Hit Esc to cancel' Q Update status line, 
Cs+2,6,0pDs+CLR Q open input line 
Cs-1,6,0pDs+(4SR-2) ,1 1,4S8¢C,0,4C[2;8] 

Q 

41:Dse6,1,T1+(~(ECLR)=,' ')40,p,CLR Q Get user input 


42:Cs-3,0,0pCs-12,0,0pCse12 


@(A/4 1=Ce2TDs)/'7A3,R-27' A <Escape> 
4(A/6 1=C)/'742,Ds~6,1,1' Q <Home> 

4(A/6 2=C)/'741,CLRe(Dtb, Ds) ,OpCse5,6' Q <End> 

~(v/0 0#C)pA2 QA not <Return> 


R-(Dtb,Ds) ,OpCse5 ,6 
43:Cs-1,6,0pDse(4SR-2),1 1,4SC,2,4C[1;8] Q Close input line 
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RCeInsCol; TYP; DEC;C;T;MF;I 
Q 
Q Insert blank columns before the current column 
Q RC: 1 - ok, O - escape 
le 
T-' 0 
41:T+T Input ‘Enter field types ( C / D/ Nx / Ex/ A )' 
+(27=(I+1) tT) pRC+O 
~(2<ppT) paEFi 
Cs+2,5,0pDse' Working ...',0pCs+7,5,0pDs+4Cc[2; 18] 
T+Parse T 
MFe5 0pr0 
42:-(ParseType I>T)LAE1 
MFeMF , [2] 0, (3+ (DECx DEC#99) +7 TYP=2) , TYP, ('CND') [TYP+1] , DEC 
4((pT)2I+I+1)pa2 
TetoT 
OLR ((OAC-1) TOLER) ,(CTp' '),(AAC-1) LAER 
MAT~((4AC-1)T(2] MAT) , (COMR,T)pCC' '),MISSON,MISSAN) (MF[3;]+1]) , (QAC-1) 
4(2) MAT 
AMA~((OAC-1)T [2] OMA) , CCOMR,T) pO) , (AAC-1) 102] OMA 
ADM+ (Ct [2] SDM) , (COMR,+/2+MF(2;J)p' '),(CHOMP[1;4AC] 1 (2) 4DM 
ODA (Ct [2] ADA) , ((OMR,+/2+MF(2;) )pOAF 4€[1;1]), cs [2] ODA 
ACL+(Ct(2JOCL) ,((2,+/2+MF[2;])p' '),cL(2] acL 
OCT+(CTACT) , (€(2+MF(2;])t° MF(4;] ,~ (8° MF(2;]),°C' °,'.',° 6° MFOS;]) (1+ 
(MF(S;]#99)xvT]) ,CLOCT 
Q 
AMP+((SAC-1)T (2) AMP) , MF, (AAC-1)4[2] OMP 
OMP[1;]+0,714+\2+4MP[2; ] 
OMC+OMC+T 
OCL(RC+CFLAG+1 ; J~€(2+7144MP(2;]) T° 3° VOMC 
~0 ,DISBeHorShift 
Q 
O£1:741,0pCs-11,1,0pCs*2,5,0pDse'Invalid format' 


RC-InsRow 
Q 
Q Insert a blank row before the current row; RC: always 1 
re) 
Cs+2,5,0pDse' Working ...',OpCs+7,5,0pDs~4C[2; 18] 
MAT+((SAR-1)T (1) MAT) ,(1](C' '),MISSAN,MISSAN) (1+71L4MP(3;]], [1] COAR-1) 
4(1] MAT 


ODM+(((OAR-1)1(1J4DM) ,C1)' '), 01) (OAR-1)101] ODM 

OMA ((SAR-1)T C1] OMA) , (1]0, [1] (OAR-1)4 01] OMA 
SDA+((OAR-1)1T (1) 4DA) , [1] (OAF 4¢€(1;1]) , [1] (OAR-1)4(1] ADA 
ALCe((QAR-1) T4OLC),C' '), CQAR-1) L4LC 

DISL+VerShift 

OMR- OMR+CFLAG+ RC+1 
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RC+LeMarg;L,V 
A 


A Set left margin 
A 
L+sApvar [4] 
41:9(27=1TL+L Input ‘Enter new left margin')pRC+0O 
'4AEr' OEA 'Apvar[4]+V+999LL|4L' 
~0 ,pdmenu3[6 ;27+13]+'550'SV 
fe) 
AEr:7A1,0pCs*11,1,0pCs*2,5,0pDs+'Input must be numeric' 


RCeLinInch;L;V 
Q 
QA Set lines per inch 
Q 
L+sApvar([7] 
A41:~(27=1TL+L Input ‘Enter lines per inch')pRC+0 
‘aaEr' OEA 'Apvar(7]+V+ L48+1[ [48+ | aL’ 
Amenu3 [9 ; 27+213]+'550'sV 
+0 ,pAmenu3(8; 27+13]+'550' sApvar[6]+[(0.2xV) f4pvar[6] 
Q 
AEr:~A1,0pCs~11,1,0pCs*2,5,0pDse'Input must be numeric' 


RC+Locate;R 

A 

Q Position cursor at specific row and column 

A 
Re''! 

A1:4(27=1TR+R Input ‘Enter row,column')pRC+0O 
'wAE1' QEA '+(2#pR-aR)pAE2' A must be numeric, 2 elements 
ACOe ((1+4SC-4UC)2>20+(+/SMP[1 2;4ACe1 [OMCLRL2]])-4MP(1;])21 
ARO+1[~5+4AR+1[4MRLR(1) 


@(ACO#A0C)/'DISBeHorShift' A scroll window horizontally 
#(ARO#AOR)/'DISL+VerShift' A and vertically if necessary 
40 ,RCe1 

Q 


A Error handling 

AE1:7-AE0,MSG+'Input must be a numeric vector' 
AE2:MSG-'Specify 2 columns, please' 
4E0:7A1,0pCs-11,1,0pCs-2,5,0pDs-MSG 


R-MakeDisA;C 

A 

Q Build attribute matrix for display window 

QA 
CeOAF((AWRLAMR-R) , SWCLOMPL1 ; AMC+1]-C) TCC R-ARO-1) ,CeAMP[1; ACO] )LADA 
Re (AWR, SWC) pAC[1 ; 1) 
R[v1tpC;r14 pc) +c 
Re ,R 
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R-MakeDisP 
A 
A Cut window portion from display matrix 
A 
Re, (AWR, OWC)T((ORO-1) , SMPL[1;4CO])14DM 


ReP MakeIndex A;W;C;D;I;U 


A 
Q Extract unique elements for FreqTab and CrossTab 
a of input vector A converted to indices 
aA U unique elements, used as col/row labels 
Q P(1) column number 
QM P(2) O- A is a vector of character elements 
fe) else: classification data (L,U,xclasses) for numeric vector A 
A 
(C D)eP 


QM Character vector 
4(O0=ppD)/'7A2, I- (Ue ULC C (pu) , 1) p Ue ((AvA)=1pA)/A) sortasub 1))A' 
A 
QA Else 
Ie1{(2+lCA-D(1) )+W- (D(2] -D(1] )+D(3)) |o(3] +2 
~+(2=4MP(3;C]) pal 
Q 
Q Numeric vector 
7A2,pUec(2)('<', (D[3) +1)p'2>'),' ',5¢(D03)+2),1)pd[1) +Wx0,0,.D(3) 
A 
QA Date vector 
41:Uec(2)('<', (D[3)+1)p'2'),' ',FromDays D(1J)+wWx0,0,7D(3] 
A 
A2:R-CI U) 


RC-MakeLabCol1;C 


A 

Q Toggle 1st matrix column: column +7 label; RC dummy 

A 
Cs-2,5,0pDse' Working ...',0pCs+7,5,0pDs~4C([2; 18] 
~(4UC=6) pal, CFLAG-RC+1 

A 
(MAT SMA)+(CASLC, MAT) (0, SMA) Q 1st column + label 


ADMe ((C+2+14p24LC) t [2] >ALC) , ADM 
ASDA+(((Tp4SDA) ,C)pOAF 4C(1;1]),4DA 
(ACL AcT)+((ct(2]' ', [0.5] ,24LS) ,ACL)((Ct'C' ,sC-2) , ACT) 
(ALC 4LS SLR SUC SMC) COMRp' ')C' ')COSLS,4LR)6(4MCt+1) 
7A2,pA4MPe (0, (C-2) ,0,'C' ,99), [2] AMP 

A 

41:4a(0#4MP[3;1])/'OWAe''C'' ToggType 1' A label © 1st column 
(ALC OLR SLS)+(MAT[;1]) C1L4LR) (C1 TALR) 
#(1==A4LC)/'SLC+<(2] (((pSLC) ,1)pdLc),'' '"' 
(MAT OMA)~11(2)° MAT AMA 
(ADM SDA SCL)-4MP([1 ;2]4(2] SDM SDA ACL 
(AUC ACT SMC)+(7+T14p>4LC) COMPL1; 2] L4CT) COMC-1) 
SMPr114(2]4MP 
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42: 4MP[1;]+O ,~14+\2+4MP[2;] A adjust column positions 
ACL[1;]-€(2+~114MP[2;])t~ (47 v4MC) 
4WC-1+4SC-4UC 


RC-MakeLabRow; NoNum 
fe) 
Q 1st matrix row ~ column labels if no labels exist 
A column labels ~ 1st matrix row otherwise; RC is dummy 
A 
Cs-2,5,0pDse' Working ...',OpCs+7,5,0pDs~4C[2; 18] 
~(RC-OUR=2)pAl 
fe) 
Q 1st row + labels 
NoNumer.0 
ChgType™ (0#~11.4MP[3;])/.4MC 
(MAT SMA SDM)+~CALR, [1] MAT) (O, [1] SMA) CSCL[2;] , [1] ADM) 
SDA~ (DAF 4C€[1;1]), C1] 4DA 
ALR+ASMCp' ! 
ecllz: ie" ' 
#(0<pNoNum)/'Cs~e11,1,0pCs*2,5,0pDs+''Columns'',(#NoNum),'' set to 
character type''' 
(AMR ALS ALC)+(COMR+1)C' ') C4LS, SLC) 
70 , SWReSSR-3+4UR-2 
a 
A label + ist row 
A1:(OLR OMR)+(8”"MAT[1;] ) (QMR-1) 
SCL(2;]+4DM[1;] 
(MAT OMA SDM SDA)+14[1]~MAT OMA ADM ADA 
(ALS ALC)-C1TALC) C1 LALC) 
OWReOSR-3+4UR-3 


RC+-MakeParam;I;COL;W;N;D;C 


Q 
Q Generate matrix parameters for a new matrix 
Q RC always 2 
fe SMP[1;] screen column offset 
Q SMP[2;] field (=column) lengths 
a SMP[3;] field types (O-character, 1-numeric, 2-date) 
fe) SMP[4;] field types (C-character, N-numeric, D-date) 
fe) OMP[5;] decimals for fixed-point numeric data, 99 otherwise 
Q 
Cs+2,5,0pDse' Creating parameters ...',0pCs+7,5,0pDs+AC[2; 18] 


ASMA~a>(' (pMAT)pO' ‘RATT')([1+2=0NC 'RATT') 

(ALC ALR ALS AUR AUC RC)-C(TpMAT)p' ')CCALpMAT)p' ')C(' ')2 6 2 
Q 
Q Check for column labels in ist row 


+(v/(1=tpMAT) ,A/” MAT[1;] €° Nec'~ .0123456789E' ) pal QA No column labels 
(ALC ALR AUR)+~C144LC) (MAT[1;] )3 Q Col labels exist 
(MAT SMA)~14([1]~ MAT SMA 

Q 

Q Check for row labels in 1st column 

O1:4(V/(1=14pMAT) ,A/” MATL; 1] €"N)pa2 Q No row labels 
SLC-MAT[; 1] Q Row labels exist 
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[ 22) 
[ 23] 
[ 24] 
[ 25] 
[ 26] 
[ 27] 
[ 28) 
[ 29] 
[ 30] 
[ 31] 
[ 32] 
[ 33] 
[ 34] 
[ 35] 
C 36) 
( 37] 
C 38] 
C 39) 
[ 40] 
C 41) 
[ 42] 
C 43) 
[ 44] 
[ 45] 
[ 46) 
[ 47) 
[ 48] 
C 49) 
C 50) 
C 51) 
[ 52) 


2S COO Re Ee FS eNO Ra Ra aaa ee ee ee 
ba 
© 
| 


#(1=s4LC)/'ALCec(2) (((pALC) ,1)pALc),'' ''' 
AUC-7+T1Lp>A4LC 
(ALR ALS)+(144LR) (1 TALR) 
(MAT SMA)~14(2] "MAT SMA 
Q 
Q Create parameters 
A2: (SMR AMC)+pMAT 
I+t1,p4MPe4 OpACL+2 OpADM-(AMR,0) pACT+20 
A3:4(A/0<N-€ToDays” COL+MAT[; I) )pa5s 
'4a4' DEA 'COL~MAT[;I]~a°MAT[; 7] ' 
Q 
COL[N+(MISSAN=COL) /vp COL) +0 A numeric column 
COL+3(4MR,1)pCOL 
COL[N;J+' ' 
W-2+3[ (Tp ALR(I]) [-1tpCcoL 
AMPeAMP, [2] (W-2) ,1,'N',99 
~A7 , pADM-ADM, [2] Wt [2] COL 
Q 
A4:W-2+3[(tp>ALR(T]) [[/€p” COL 
~A6 ,pSMPeAMP, [2] (W-2) ,0,'C' ,99 
Q 
A5: MATL; IJ+“N A date column 
AMP-AMP, [2] (We10) ,2,'D',99 
Q 
A6 : ADM-ADM, (2) Wt [2] (2t (pCOL) , 1) pCOL~>COL 
AT: ACLeACL,(2,W)pCWtsI) , WtI>ALR 
SCT+ACT, Wt( , SMP(3;I]) , (eW-2), ,>(OMP([4; 1) #99)/c' .', saMP(4; I] 
+(AMC2I+I+1)pa3 
Q 
AMP-(0,+\2+AMP[1;]), [1] 4MP,3,0,0,0 Q Position of matrix end 
SetPtr 


D 


Is it a date column ? 
or numeric ? 


D 


Character column 


D 


RC-Mark F;R;C 


Q 
QA (Un-)Mark areas, (RC: 1-dummy) 
Q F: 1-field, 2-block, 3-row, 4-column, S-unhighlight 
QA 'mark field' toggles, block/row/column set marks 
Q 
~(V/AAC AAR>ASMC SMR)pRC-O A cursor on valid field ? 
Cs+2,5,0pDse' Working ...',0pCs+7,5,0pDs+4C[2; 18) 
~FIA1,A2,A43,44,A6 
Q 
A1:4MA[AAR; AAC] ~—(8x4MA[AAR; AAC]<8)+8| OMA[AAR; AAC) Q Mark field 
ADA[AAR; GC AAC)~(2+4MP[2;4AC))/OAF 4C(1;1+4MA[AAR; SACT] 
AUL[1J='M' 
ClearUL 
“0 ,(CFLAG MARKR MARKC)+1 AAR AAC 
Q 
A2:-3(MARKR=0)p0 Q Mark block 
7A5,0(R C)+((MARKRLOAR)+0,21MARKR-SAR) ((MARKCLSAC) +0, 2 | MARKC-AAC) 
A3:745,9(R C)-SAR(.4MC) A Mark row 
A4:(R C)—(rSMR) AAC Q Mark column 


A5:4MA[R; C]~-8+8|4MA(R; C] 
ADALR;€GC”C]+(2+A4MP[2;C])/((p,R),p,C)pUAF 4C[1;1+4MA(R; C)) 
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12] 
13] 
14] 


17] 
18] 


SUL[1J]+—'M' 
ClearUL 
~0 , CFLAGe1 
Q 
46: SMA+8 | OMA Q Unmark 
SDA~(~142+4MP[2;])/OAF SC[1;1+4MA] 
SUL[1J+' '! 
ClearUL 
CFLAG+1+MARKR-MARKC+O 


RC-Menu NUM;A4B; MSC 


AQ 
Q Popup menu for additional functions 
Q NUM: 1 Statistics RC: 1 screen update necessary 
Q 2 File Operations 0 escape 
fe) 3 Printer 
Q 
RC-O 


4~(2=0NC MSC-'dmenu' ,sNUM)/A1 

40 ,OpCs+11,1,0pCs+2,5,0pDs+'Menu not available' 
Q Format menu field 

41:Cs*1 12,0pDs-6 40 13 32 2,4Be16x|(4C[1;1]+16 


Cs+7 12,0pDs+(,(12 31p4C[1;20]) , 4B), (4B+L4c[1 ; 20]=16) ,31916« LAc[1; 20] +16 


Ds-(31T (NUM>4menu0) ,' Es¢: Quit’), ‘ae’, (ie'-)..'F 
Cs+2 12,0pDs-Ds,(,(10 31TaMSC),'9'),'@', (30p's'),'E' 

Q 

42:-(A/27 1=AB+2TDs,0pCs+3 1)p0 A Escape pressed ? 
4((A/0 59SA4B)A(A/O 682>4B)) 442 A Function key 7? 

4(O=O0NC 'DISA')pa3 
Cs+7 ,8,0pDs+DISA QA edit window attributes 
Cs+2,8,0pDs-DISP QR edit window 

Q 

43:4'RC+' ,>Sfunc(NUM;4B(2]-58] Q Execute function 


RC-NewMat NAME 


Q 
A (Create and) Initialize a new matrix 
QA RC: O - escape (= keep old matrix) 
Q 1 - display not updated 
Q 2 - display matrix is correct 
Q 
~QuitiRC-O Q QQUIT old matrix ? 
CFLAG+0 
Cs~2,6,0pDse'' QA Get name of new matrix 
~(27=1TORIG-GetName NAME)p0O A Exit if escape 
~(2=ONC ORIG)pA1 a Jump if matrix exists 
¢(ReadMat ORIG)/'70,RC+1' a Try to find file 
fe) 
+(GetFieldType)10 Q Get Field types of a new matrix 
SetPtr 
40, RCH1 
A 
41:7(2=0NC 'ASSP')pa2 A Statistics recursion ? 
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Par 


ae ae sea eee ae 


west Coes aes ee 


SS Vea eS SS eee et ee ae eo 


@(2#0NC 'RATT')/'+(ReadMat ORIG)p0,RCr1' a Try to find file 
MAT+(~21T1,1,paO0RIG) pt" 40RIG 

7-0 ,RC+MakeParam Q Create parameters for a matrix 
42:70,RC-StatParam Q Recursion, matrix is ready 


Z-Num X 
Q 
Q Test if array X is numeric; Z: 0 - no, 1 - yes 
Q 
Z-0€0\0pX 


RC+NumCol ;L 

fe) 

Q Set number of columns 

fe) 

LesApvar(5] 

O1:~-(27=1TL+L Input ‘Enter number of columns')pRC+0O 
'sErr' OEA 'Apvar(5]~-999 Lif Ll] 4aL' 

“0 ,o4menu3(7 ; 27+213]+'550' s4pvar [5] 

a 

AErr:7A41,0pCs~e11,1,0pCs-2,5,0pDs~'Input must be numeric' 


COL“NumToChar COL;N 
Q 
Q Convert numeric column to character; C global column number 
Q 
COL(N«(MISSAN=COL)/1pCOLJ]+0 
@'COL+' ,(,>(4MP[5;C] #99) /c'14 (2) 4MP[S5;C]'),'S(4MR,1)pCOL' 
COL[N;]+' ' 


RC-OutCsSV; FILE; N; OUTMAT; HMAT 
Q 
Q Write current matrix to a CSV file; RC: always 0 
Q 
FILE 
~(27=1TFILE+GetFileName FILE)pRC+0O 
HMAT-MAT 
Ne (2="14L4MP(3;])/v4MC 
@(0#9N)/'HMAT(;NJ)~(4MR,9N)p¢(2]FromDays HMAT([;N]' 


HMAT+CompMat HMAT Q Append labels 
OUTMAT+p0 Q Prepare matrix as 
CSVprep ~ToHMAT Q vector of vectors 
Cs-2,5,0pDse' Writing ',FILE,' ...',0pCs+7,5,0pDs~A4Cc(2; 18) 


OWA-OQUTMAT Afv FILE 
Cs-7 ,5,0pDs~4C(1; 18] 
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RC+OutDOS ; FILE; N;C1;D1 ; OUTMAT 


a 
A Write current matrix to DOS file; RC: always 0 
Q 
FILE-'' 
~(27=1TFILE+GetFileName FILE)pRC+0 
Cs+2,5,0pDse' Preparing ‘,FILE,‘ ...' 
OUTMAT+ADM 
#(AUR=3) /'QUTMATeACL[2;] , [1] OUTMAT' 
#(AUC>6) /' OUTMAT+(>((AUR=3)/ALS) ,ALC),'' '','' '', OQUTMAT' 
NU[('7'=N)/1pNe , OUTMAT)+'-' 
Cs+2,5,0pDse' Writing ',FILE,' ...',OpCs+7,5,0pDs+AC(2;18] 


OWA-(¢[2]-14[2) (pOUTMAT)pN)Afv FILE 
Cs+7 ,5,0pDs+Ac[1 ; 18] 


R-eParse CSV;Q;DEL;N 
A 
A Convert a character vector into a nested vector 
A Commas are delimiters if not between double quotes 
e) 
DEL[N] + N+ (DEL=1) /1pDEL+(~Q) / (CSV=' ,')A~21+\Qe'aQ'=CSVe',' , CSV 
R-Dtb" 14” (DEL+1)¢(~Q)/CSV 


RC+ParseType V 

A 

A Create type parameters from user input 

QA TYP (global) type code 

A DEC (global) decimal digits, 99 if character or date 
fe) 


+('CcDdAaNnEe'21TV)2A1,A1,42,A42,A43,43,44,A4,45,45, RCHO 
A1:+0,p(RC TYP DEC)+1 0 99 

A2:70,pC(RC TYP DEC)+1 2 99 

A3:40,p(RC TYP DEC)+1 1 99 

A4:'90' GEA '+0,pCRC TYP DEC)+1 1(a14V)' 

45:'20' OEA '30,p(RC TYP DEC)+1 1(~1-4a14V)' 


character type 
date 

numeric (std. APL) 
fixed decimals 
scientific format 


DDODODOD 


WePlaceEntry C;COL; DIF; KEEPC 

Q 

Q Rewrite matrix column C into ADM, expand/reduce column width 
Q Return: wW new column width 


Q 
Cs+2,5,0pDse' Updating display ...',O0pCs+7,5,0pDs+4C[2; 18] 
~(0=DIF+(W-DisCol)-2+4MP[2;C] )pa2 
KEEPC+(14pADM)p1 
@(DIF<0)/'7a1,KEEPC([AMP[1;C]+wW+r1|DIF]+0' QA reduce width 
KEEPC([AMP[1; C+1)]-DIF+1 A expand column 
A 


A1:(4DM SDA SCL ACT)+KEEPC/“ADM ADA ACL ACT 
AMP[1;]+0,~14+\2+AMP[2;] 
A2: 4DM[; AMP[1;C]+2.W] -Wt (2) COL 
ADAL; AMP[1;C] +.W]-&(W, tpADA)pOAF AC[1; 1+4MAT; C)] 
ACT([AMP[1;C] +. W]-wWt(, AMP[4;C]) , (@W-2), ,>(AMP[5;C€]#99)/c'.', sAMP[5;C] 


96 


Aaa eSee 
GO) 
J 
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Play; A;SH 
Q 


Q Sound if matrix is ready to edit; length depends on matrix size 
Q 

A440 OSVO 'SH' 

#(2#0SVO 'SH')/'-0,pU0+''NOT SHARED''' 

SH-'04' , (2x [0.003x4SMCxAMR) p'C6D6' 


RC+Pool;D;COL;Cc;A;B;C2 


fe) 
Q Collapse specified rows/columns of a cross matrix 
Q 
~(O=QNC 'RCM' )pRC-O AQ return if no cross matrix exists 
Q 
Cs+11,1,0pCs+2,5,0pDs~'Collapse Rows or Columns; Original (R/C/0) ?' 
~(A/67 79 82 99 111 114#K-1TDs,0pCs~3,1)/OLC Q get answer 
D-(67 99 82 114 79 111=K)/0 011 2 2 A cols=0, rows=1, orig=2 
Q 
Q Back to the original table 
~(D#2) pao 
Cs-2,5,0pDse' Restoring ...',O0pCs+7,5,0pDs+4c[2; 18] 
~45,p(RCM Unil Uni2)+ORCM OUni1 OUni2 
Q 


Q Collapse rows/columns 
S0:4(~D)/'RCM-&RCM' 
COL+'' 
Q@ &1:4(27=1TCOL-COL Input ‘Enter row/column numbers')p0O 
41:7(27=1TCOL-COL Input ‘Enter ',(€('column' '‘row')(D+1]),' numbers')p0O 


+(COL2,' ')p0 

'+AE1' DEA 'COL+aco_L' Q must be numeric 
@D/'COL+1+{LCOL+3' 

4(A/COLEvTPRCM) L4E2 QA must exist 
Q 

Cs+2,5,0pDse' Aggregating ...',0pCs+7,5,0pDs+4c[2;18] 


RCM[T COL; ]~+/RCM[COL; J 
RCM“ RCM[(vtpRCM)~14COL; J 
~(~D)pa3 
Q 
~('<'#t, 2Unii1(tCc+COL[ACOL]])pa2 Q Rows 
'4AE3' QEA 'Unil(TCOL)+<''<'' 14,2Unii1[1+-1TCc]' 
42:745 ,pUni1-Uni1[(vpUni1)~14COL) 
Q 
43:7('<'#T, >Uni2[TCc-COL[ACOL]]) pa4 Q Columns 
'~AE3' OEA 'Uni2(tcoLje<''<'' 14, 2Uni2(1+-1TCc]' 
44: Uni2-Uni2([(1vpUni2)~11COL) 
RCM-&RCM 
Q 
45: 
@MM,'«CtPrep RCM' 
C2-CFLAG Q temporarily disable the Change flag 
CFLAG+O 
D-NewMat MM 
Refresh 
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[ 45) 
[ 46] 
[ 47] 
[ 48] 
[ 49] 
[ 50) 
[ 51) 
[ 52] 


0) 
1] 


(oe oe oe oe Be oe oe 
et) 
ad 


an ee oe ee ee ee ee ee oe ee 
oo 
J 


me ec ta ee ee ee Be fe 
(ee) 
Paaaf) 


CFLAG+C2 
~0,RC+1 
Q 
Q Error handling 
4E1:-A4E0,MSG-'Input must be a numeric vector' 


SE2:7AE0 ,MSG+'Non existing column/row numbers specified' 


AES: MSG=' 77 7 7° 
4E0:441,0pCs~11,1,0pCs+2,5,0pDs-MSG 


RC+PortLand;P 

fe) 

Q Toggle printer portrait/landscape mode 
fe) 

PeApvar[3])+~4pvar[3] 


Smenu3[5;]+30t' FS Start ',((P+1)>'Landscape' 'Portrait'),' mode' 


Apvar[1 2]+4pvar[2 1] 
RC+-0 


RC-PrtMark;R;C;MP;OMAT;N;LC 
Q 
QA Print marked area of a worksheet 
Q 
RC-O 
4((10)=R-(V/OMA>8) /1OMR)/'30,0MATe''''! 
C-(VAOMA>8) /1OMC 
Q 
MP-AMP[2; C] 
OMAT~ADMLR; €GCC] 


&(SUR=3)/'OMAT+(E€(2+4MP[2;C])t” SLROEC]) , £1] OMAT' 
4(SUC>6)/' OMAT+(LC+H>( (QUR=3)/4LS) ,SLC[R]),'' '', 


NEC'~'=N)/1p9Ne©, OMAT]+'-' 

OMAT+(pOMAT) pN 

&(AUC>6)/'MP+(-1TpLC) , MP! 
Q 

RC+PrtMat OMAT 


QA marked rows 
Q marked columns 


'* ,OMAT' 


RC-PrtMat OMAT;:HD;R;C;RL;CL;RC;LPP;CPP;P;PP;PA;PB;PAG;MMP;L 


A 


Q Print OMAT which is the complete worksheet or a marked block 


Mi 


4(27=1THD-'' Input ‘Enter heading for each page')pRC+0O 


~(27=1TR-GetYN 'Row labels on each page')p0 
~(27=1TC+GetYN ‘Column labels on each page')p0O 


Cs+2,5,0pDse' Printing ...',0pCs+7,5,0pDs-4c[2; 18] 


Q 

LPP+ [Apvar[7] x4pvar[1]-0.8+4pvar[6)+4pvar[7] 
LPP}LPP-3+Cx2 

CPP-Apvar[5] -2+RxMP[1] 


A x matrix line per page 
Q Adjust for heading, labels 
A x matrix columns per page 


Q 
MP+MP+((~-1+pMP)p2) ,0 A matrix field lengths 
OMAT+~21[2] OMAT A last 2 columns are blank 
RL+(C1TpOMAT) ,O)p'' A init row labels 
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CL-(14Sp0MAT)p' ' A init column labels 
RCe'' QA init upper left label corner 
~RLAL 
RL+MP(1] t [2] OMAT A row labels 
OMAT+MP([1]14(2] OMAT 
MP-14MP 
41:~CLA2 
CL-OMAT[1 ;] QA column labels 
OMAT+ 141] OMAT 
+~RLA2 
RC+RLL1;] 
RL+1i14(1)] RL 
Q 
Q Send printer setup codes 


42:OWArsprint(OAF 27 38 108), (s4pvar[3]),'0' A portrait/landscape 
OWA+dprint(OAF 27 40) ,(4105+4pvar[3]),'X' A set font id 
OWArdprint(OAF 27 38 97), (#4pvar[4]),'L' A left margin 

DOWAr dprint(OAF 27 38 108),(s4dpvar[6]),'E' A top margin 
OWAraprint(DAF 27 38 108), (#4pvar([7]),'D' A lines per inch 
OWArAprint(OAF 27 38 107 48 71) A line termination code 
s) 

PB-O A 2nd part of page number 
43: Pe-MMP([PP++/CPP>MMP++\ MP] A last column to print in this pass 
PA-O A lst part of page number 

PBePBt+Le~1 AL: matrix line to print 
fs) 

44: PAe PA+1 


OWArdprint((4pvar[5]-pPAG) THD), (PAG+'page ',(8PA),'.',3PB),OAF 13 10 13 10 
aC/'QWArdprint (OAF 13 10),RC,CL[.P) ,OAF 13 10' 
A 

A5:~(C1ATPOMAT)<LeL+1)p46,aprint(OAF 13 10),RLCL;] ,OMAT[L;1P] 

+(O#LPP|L) p45 

~a4,ff 
A 
46: OMAT+P4 [2] OMAT 

CL+PICL 

+(1S9MP+PPLMP)pa3 , ff 


RC+PrtwWKS; OMAT; MP;N;LC 
fs) 
Q Print complete worksheet 
fs) 
OMAT+ SDM 
4(SUR=3)/'OMAT+4SCL[2;] , [1] OMAT' 
4(SUC>6)/' OMAT+(LCe>((SUR=3)/4LS) ,ALC),'' '','' '' ,OMAT' 
NLC '~'=N)/1pNe , OMATI¢'-' 
OMAT+ (pOMAT) PN 
MP-~144MP[2;] 
4(AUC>6)/'MPe(-1tpLc) ,MP' 
A 
RC+PrtMat OMAT 
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RC+Quit 
A 
QA Quit without saving changes ? 
A RC: 1 - ok to quit (do not save) or no changes applied 
Q O - do not quit 
7) 
RC+a(CFLAG+1)>'1' 'GetYN ''Lose all changes''' 


RC+ReadMat F;FF;Cz;Dz; EC; MM 
A 
AQ Read matrix and its parameters, RC: 1 - ok, 0 - escape/error 
A 
-QuitlRC+O A Current matrix changed since last save ? 
A 
(~F='')/'942,pFFePATH,F,''.UED,A''' 
41:9(27=1TF+F Input ‘Enter matrix name‘ )pRC+O 
FF PATH, (CA\F#'.')/F),'.UED,A' 
A2:7AsharelAE2 
~(0#EC-Aropen FF)p0 
A 
A43:Cs+2,5,0pDse' Reading ',("2!FF),' ...',0pCs+7,5,0pDs+4C(2; 18] 
~(O#T(CEC SMR)+Areadv) pAE1 
~(O#T(CEC AMC)+sreadv) pAE1 
AMA+MAT+ (0, AMC) p20 
431:-(O#TCEC MM)+dreadv) pAE1 
MAT+MAT, [1] MM 
~(O#T CEC MM)+Areadv)pAF1 
7(1SA4MR-AMR-1)p431, OMA~OMA, [1] MM 
~(O#T(EC SMP)+Areadv) pAF1 
~(O#T (EC ALR)+Areadv)pAE1 
+(O#T(EC ALC)+Areadv) pAE1 
4(0#T(EC ALS)+areadv)paE1 
~(O#T(EC F)+Areadv)pAEi 
~( EC#0) pAEi 
Aclose 
'+AE1' OEA ‘(AUC AUR AAR SAC SRO ACO AOR AOC MARKR MARKC HIGHR HIGHC)+F' 
(AWR AWC) -(OSR-3+4UR) (1+4SC-AUC) 
&(MARKR>O)/'SUL[1iJe/''M'!! 
a(HIGHR>O)/'AUL(3Je''S''! 
Cs+7 ,5 ,OpDs+4c[1 ; 18] 
+0 ,RCHl 
A 
SE2:70,pCs-11,1,0pCs*2,5,0pDse'AP210 not active' 
AE1:Aclose 
~41,pCs-11,1,0pCs+2,5,0pDse'AP210: ',4ap210[] EC;] 
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RC-Recode; UNI; VAL;D; I; COL 
Q 
Q Replace elements in current column by new ones of character type 
QA RC: O- no changes, 1 - screen update necessary 
Q 
Cs+2,5,0pDse' Working ...',0pCs-7,5,0pDs~4C[2; 18) 
RC+tO, I-pUNI+ , ((D1D)= 19D) / De COL+3” MAT([; SAC] 
41:~(27=1TVAL“VAL Input ‘Enter new value for ',VAL+%, I>UNI)pA2 
~(1S$I+I-RC+1)pA1,pCOL((D=" UNI(I])/rpD] -< VAL 
AQ 
A2:~RCLO 
MAT[; SAC] ~COL 
AMP[(3 4 5;4AC]+0,'C' ,99 
I-PlaceEntry SAC 
CFLAG+1 


Refresh;C;COL;LAB;W;N 

A 

Q Generate screen display matrix, column labels, column types 

A 
(AMR SMC)+pMAT 
C-eT1,pACL+2 OpADM-CAMR,0)pACT+2r0 

41: WeDisCol A get column width 
ADM-ADM , (2) Wt (2} COL A append column 
ACL~ACL,(2,W)pCWTSC) , WTOALR(C] 

ACT+ACT, Wt( , AMP([4;C]) , (¥W-2), ,>CAMP[S ; C]#99)/c'.', sOMP[S; C] 


~(AMC2>C+C+1) pai 
AMP(1;]-0O,~14+\2+4MP(2; ] A start posistion of columns 
ADA+(~142+4MP(2;])/OAF 4c(1; 1+4MA] Q expanded color attributes 


NVEC-SUB Replace OVEC 
Q 
Q Replace all 1TSUB in OVEC by 11SUB giving NVEC 
fe) 
OVEC((OVEC=1T SUB) /~1pOVEC)+<11 SUB 
NVEC-EOVEC 


RC-ResPrt 
A 
Q Reset printer parameters and menu to default values (RC always 0) 
AQ 
Apvar+PRINT 
fe) 
Amenu3(5;]+30t' FS Start ',((1+4pvar([3])>'Landscape' 'Portrait'),' mode' 
Amenu3 [6 ; 27+13]+'550' s4pvar[4] 
Amenu3(7 ;27+13]+'550' sdpvar[5] 
Amenu3(8 ; 27+13]+'550' sApvar [6] 
Amenu3 (9 ; 27+13]+'550' sApvar([7] 
RC+O 
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RCeRotate;R;C; RATT 
a 
Q Rotate matrix or marked area if anything marked 


QA RC: 1-changes, O-no changes, set (with CFLAG) in BackLabel 
a 


Cs-2,5,0pDse' Working ...',0pCs+7,5,0pDs+~ACc([2; 18] 
4((vRCHO)=R+(V/4MA28) /VOMR)/'741,p(R C)-1°pdSMA' QQ Find row/col numbers 
Ce (VAAMA>8) /VAMC Q of marked area 
A1:(ROMAT RATT)Q”R AddLabel C A Create rotated submat 
#(USER 'ROMAT')/'RC-CR C)BackLabelXQROMAT' A Implement changes 
SHOW V;4E 
Q 


A Show the variable V in the APL2 environment, return to UEDIT 
QA by hitting return. 
Q 

@(1=1>2AE-DEC 'Oev')/3 


Ve ((0=124E)/'Could not execute') ,(0#1>AE)/'Successfully executed' 


4(0#124E)/a1 
32AE,0pCfse11 1 
41:0,0+OTc(2],'Press Enter to Proceed' 


RC-SXout ; FILE; OQUTMAT; COL; N 

e) 

QA Export matrix columns to StatXact; RC: always 0 

fe) 
COLe*" 

41:49(27=1TCOL+COL Input ‘Enter column numbers to export')pRC+0O 
@(COL=,' ')/'COL+3.4MC' 


'+AE1' DEA 'COL-aCoL' QA must be numeric 

4(A/COLE1” 1 tpMAT) +4E3 A columns must exist 
Q 

FILE-*' 

+(27=1TFILE-GetFileName FILE) p0 

Cs+2,5,0pDse' Preparing ', FILE," ...' 


OUTMAT+3(14MR) ,>MATL[; COL] 
NC('~'=N)/1pNe , OUTMAT]~'-' 
OUTMAT+ (pOUTMAT) pN 
A 

Cse2,5,0pDse' Writing ',FILE,' ...',0pCs+7,5,0pDs+4c(2; 18] 
OWA+(¢(2] QUTMAT) Afv FILE 

40 
Q Error handling 
OE1:7AEO,MSG-'Input must be a numeric vector' 
OE3:MSG-'Non existing column number specified' 
4E0:7A1,0pCs+11,1,0pCs+2,5,0pDs-MSG 
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2) 
3] 
4) 
5] 
6] 
7] 
8] 


RC+SaveMat F;FF;N;SV;EC 
fe) 
Q Save matrix and its parameters; RC: 1 - ok, O - escape/error 
fe) 
RC+-O 
~((8<pF)v2=ONC 'RATT' )pal 
@(~F='')/'~+A42,pFF+PATH,F,''.UED,A''' 
41:7(27=1TF+(Dtb 8tF)Input ‘Enter file name')p0 
~(Fz,' ')pdal 
FFe PATH, (CA\F#'.')/F),'.UED,A' 
~AsharelsE2 
ECeAropen FF 
Aclose 
4(EC=0)/'+(GetYN F,'' already exists, delete it'')tal' 
fe) 
Title F 
fe) 
42:Cs*2,5,0pDs~' Writing ',("2!FF),' ...',O0pCs+7,5,0pDs~-4C(2; 18] 
~AsharethE2 
4(A/O0 2#ECeAdelete FF)pAE1 
~(O#EC+Awopen FF)pAE1 
~(O#EC-Awritev 4SMR)pAE1 
~(O#ECeAwritev SMC)pAE1, Ne1 
421:7(O#EC+awritev MATLN;])paAEi1 
~(0#ECeAwritev SMA[N;])psE1 
~( AMR2>N-N+1)pA21 
+(O#ECeAwritev ASMP)pAE1 
~(0#EC-Awritev SLR)pAE1 
~(O#EC-Awritev ALC)pAE1 
~(O#EC-Awritev SLS)pAE1 
NeQUC SUR SAR BAC BRO ACO SOR SOC MARKR MARKC HIGHR HIGHC 
~(O#ECrAwritev N)pAE1 
Aclose 
fe) 
4(ORIG+F) ,'*CompMat MAT' 
#(2=ONC 'RATT')/'RATT+OMA' 
Cs+7 ,5,0pDs-4C[1; 18] 
~0 ,RCH1 
fe) 
SE1:70,0pCs+11,1,0pCs+2,5,0pDs+'AP210: ',4ap210[] EC;] 
SE2:Cs-11,1,0pCs*2,5,0pDse'AP211 not active - saving to workspace only' 


SetPtr 

'e) 

Q Set pointers for a new matrix 

A 
SAR-SACHSROFACO1 Q coord of cursor cell/upper left window cell 
MARKR« MARKC+ HIGHR-HIGHC+O a first corner of block to mark/highlight 
SOR 40C+0 Q flags: screen update necessary 
(AWR SWC)+(SSR-3+4UR) (1+4SC-4UC) QA size of edit window 
SDA~(~142+OMP[2;])/OAF 4C[1;1+4MA] AQ expanded color attributes 
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RC+Shadow;R;C; COLR; RATT; SSP 

Q 

Q Shadow un-highlighted areas; RC: 1-done, O-escape/no changes 
Q Sets CFLAG in BackLabel if necessary 


Q 
+(0=COLR+Get Color) pRC+0 a Escape pressed 
+((10)=R+(V/SMA>COLR) /.4MR) pO A Quit if no highlights 
Cs+2,5,0pDse' Working ...',0pCs+7,5,0pDs+4C([2; 18] 
(SHMAT RATT)+“R AddLabel C+(vV/SMA>COLR) /1OMC Q Create submatrices 
@(USER 'SHMAT')/'RC+(R C)BackLabel SHMAT' Q Implement changes 

ShowCell;C 

Q 

A Set color attributes of current cell to ‘active' 

Q 


Ds (QUR+SAR-SRO) , SUC+OMP([1 ; SAC}-AMPL[1 ; AOC-4C0) 
C-SC(2; 14+4(1+V/ (SAC, 45AR)>SMC,4MR)>'SMALSAR; 4SAC]' '0') 
Cse1,9,0pDs-Ds,1, ((1+4SC-Ds[2]) LQMP[2;4AC]) ,0,C 


RC-Sort;Label; VEC;MSG;S 

Q 

Q Sort rows on different columns; RC: 1 - sorted, 0O - escape 

Q 
VECe'' 

41: VEC-VEC Input 'Enter colx'' s in major-minor order ( >0 4 , <0 ¥ )' 
4+(27=1T VEC) pRC+O 


4 
'4AE1' QEA 'VECeaVEC' Q Input must be numeric 
+(A/( | VEC)€v4MC) LAE2 Q Column numbers must exist 
Q 
Cse2,5,0pDse' Sorting ...',0pCs+7,5,0pDs-4C(2; 18] 


42:S-MAT sortdsub “1TVEC 
(MAT SMA ADM ADA SLC)+(MAT(S;]) COMATS;}) CODM(S;]) (4DATS;]) (ALCS) ) 
~(1SpVEC+~11 VEC) pa2 
Q 
~(3>pALR)pa3 
~(ALR(3)=¢'Cum.')143 QA special handling if within 
VEC+( MATL ;3] #MISSAN)/214MR Q freq tabs: recalculate 
MATLVEC;3]++\MATL[VEC; 1] QA cumulative frequencies 
OWA-PlaceEntry 3 
Q 
43:DISL+VerShift 
7-0 , CFLAG+RC+1 
Q 
Q Error handling 
QE1:-A4E0,MSGe'Input must be a numeric vector' 
SE2:MSG-'Non existing column numbers specified' 
OE0:7A41,0pCs~-11,1,0p9Cs-2,5,0pDs-MSG 
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RC+StatParam 
Q 
Q Generate matrix parameters for a new, overlay matrix; takes the 
Q information from ASP; RC: always 1 
MM 
MAT+#0RIG 
(AMA SLC ALR ALS AUR RC)+CRATT) (14MAT(;1]) C1SMAT(1;5J)C' ')3 1 
(SMR AMC)+pMAT+1 114MAT 
AUCH7+1 1p >4LC 
a(v/,4MA>0)/'AUL[3)}+''H''' 
ASMP+(5,11p4SP)p0 
AMP[3 5;]+ASP 
SMP(4;)+C'CND') (1+4MP([3;)] 
SMP+AMP,0,3,0,0,0 
SetPtr 


Title F;N;MSG 

Q 

Q Create and display status line 

Q 

Ne LO.5xASC-21+pMSG-F,' [(',(C3TpMAT),'x',(S~1TPMAT),'J' 
Cs+4,4,0pDse' UEdit 1.00',(NT' '),MSG,(NT' '),'F1i - Help ' 


RC+ToDays D;DD;MM;YY 


Validate Date D and convert to days since February 29, 0000 
D: Character vector of input data 'MM DD YYyy' or different 
order depending on the global variable DATE 
RC: MISSAN if D is blank 
0 if D is invalid 
days since Feb 29, 0000 otherwise 


DDODODODODODD 


~(A/D=' ')p0,RC-MISSAN 

RC+-O 

D((DE'-/.')/rpDe , DJ -',' 
A '40' DEA '+((pDe,4D)€2 3)40! 

'40' DEA '3((pDeaD)€2 3)40' 

4(2=pD)/' D+ (DATEv1)>(OTS(1) ,D) (D(1) ,OTS(1) ,D(2])(D,OTS(1)) ' 
CYY MM DD)-D(DATE123] 

YY+YY+( YY<100) x100~x [OTS(1J +100 


+(MMEr12) 40 A month < 12 
~(DDE1(31 29 31 30 31 30 31 31 30 31 30 31)([MM])10 A days/month 
@(A/2 29=MM DD)/'~((0#41 YY) V(0=100| YY) A0#4001 YY) p0' Q leap year 

A 
RC+(365~ YY) +-/ LC YY YY-MMS2)°.+4 100 400 A convert date 


RC+RC+DD+(306 337 O 31 61 92 122 153 184 214 245 275) [MM] 
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RC+ToMarg;L;V 
RQ 


Q Set topt margin 
Q 
L-s4pvar[6] 
41:~(27=1TL+L Input ‘Enter new top margin')pRC+0 
'4AEr' OEA 'Apvar(6]+V-999L[(.2xA4pvar(7]) [laL' 
40, pdmenu3 (8 ; 27+213]+'550'SV 
Q 
AEr:7A1,0pCse11,1,0pCs+2,5,0pDs-+'Input must be numeric' 


RC+NT ToggType C;TYP;DEC;K;I 
Q 


a Change type/format of column C (to T if T given) 
QM RC: 1 - screen update necessary, O - not necessary 
Q 
+(SAC>AMC) pRC+O 
4(2=0NC 'NT')pa2 
NTe+' ? 
41:72(27=1TNT+NT Input 'Enter new format ( C / D / Nx / Ex / A )')p0 
42:+(ParseType NT)4AE1 


Cs-2,5,0pDse' Converting ...',0pCs+7,5,0pDs+4c([2; 18] 
+~(1+A4MP(3;C] , TYP) >(0, 43,44) (45, A6, 48) (47, 48,0) 

re) 

43: K[IeCA/"K=' ')/1pKe MATL; CJ) ]-ctMISSAN Q char -> num 
'4AE1' QEA '7a8,MAT[;C]+a"K' 

\4:7(V/0=K-€ToDays” MAT[;C]) pAE1 Q char -> date 
~A8,MAT[;C]-K 

Q 

45:748 ,oMATL[; C]-Dtb"<(2]NumToChar MAT[;C] Q num -> char 

46:7(DEC=A4MP[5; C])148,0 QA num -> date 

Q 

A7:MAT([;C]+Dtb"¢(2]FromDays MAT[;C] QR date -> char 

Q 

A8:4MP(3 4 5;C]+TYP,('CND') [TYP+CFLAG+1] , DEC Q Update parameters 
OWA+PlaceEntry C QR and display 
~0 , RCe1 

Q 


Q Error handling 


AE1:7A1,0pCs+11,1,0pCs+2,5,0pDs~' Invalid format' 
TryNum I;N 
Q 


Q Try to make column N of 'Get' matrix numeric; if that doesn't 
Q work convert matrix column I to character type 
Q 

Ne I-SAC-1 

'' QEA '30, NMAT[;N) +a” NMAT[; NJ' 

QGWA+'C' ToggType I 
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R-VerShift;I 

Q 

Q Adjust line numbers, row labels, returns DISL 

Q 
Re (QWR,5)p'2220 'SI+~1+( AOR ARO) +.4WR A column numbers 
@(AUC>6)/'R-(R,4WRt [1] (PALC) CCIS4MR)/T;)),'' 1"! A column labels 
Cs+1,2,0pDs~AUR,1,4WR, (AUC-1) ,2,4C[1;16] Qa re-define field 
Cs-4,2,0pDseRe ,R Q display field 
CeaskAcol PROMPT;C;MSG 


Q 


Q Get column number to work on, return immediately if escape or ' ' 
Q 


Cet 
41:9(27=1TC+C Input PROMPT) pO 
3(C=,' ') po 

'4AE1' DEA '+(0#ppC+4C) pAk2' 
+(CELAMC) pO 


7AEO,MSG~'Non existing column number specified' 
AE1:7AEO,MSG-'Input must be a numeric vector' 
AE2:MSG-'Specify only 1 column, please' 
AE0:7A1,0pCs+11,1,0pCs+2,5,0pDs-MSG 


PeaskAdpar C 

Q 

Q Get classification data for numeric vector: 

QA lower limit, upper limit, number of classes 

Q 

~(AMP([3; C]=0)pP-0 QA no classification for character columns 
Pe! 

41:PeP Input 'Column ',(8C),': lower limit, upper limit, number of classes' 


~(27=1TP)p0 

~(1=AMP([3;C] )pa2 

~(3#pP+Parse P)pAE1 

'9AE2' QEA '3(v/0=P+(€ToDays” 2TP) ,4>PL3])10,AE3' 
A2:'7\E2' DEA '+(3=pP+4P)p0' Q data must be numeric, 3 elements 
Q 
AE1:~AEO,MSGe'Specify a 3-element vector, please' 
SE2:7AEO,MSGe'Invalid number specified' 
SE3:MSG-'Invalid date specified' 
AED :7A1,0pCse11,1,0pCs+2,5,0pDs-MSG 


RCeff 
Q 
Q Print form feed 
Q 
RCeAprint DAF 13 12 
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R« VAL freqdcnt CLASS;A;B 
fe) 
A Counts ocurrences of elements of ~tCLASS in VAL. VAL must be 


A sorted (A or ¥) and must not contain elements not in CLASS. 
Q 


R+CLASSpO 
R[A/VAL]+B-(pB)p0, Be (A+ (“14 VALF1OVAL) ,1)/2rpVAL 


R+Z sortdAsub COL;C;S 


Sort rows of matrix Z on column COL. Sort d& if COL>0, ¥ if COL<O. 
The return vector R contains the index order of a sorted matrix Z, 
the matrix itself is NOT sorted. The sorting is case insensitive, 
i.e., lower and upper case characters are considered equal. 


DDO DDN D 


S+2 64p' !ax$+a''()*+,-./0123456789: ; <=>? ABCDEFGHI JKLMNOPQRSTUVWXYZ[\] 
A_ !ax$+a''!()*+,-./0123456789: ; <=>? abcdefghijklmnopqrstuvwxyz[\]Ja_' 

+(1+(COL<0)+2x4MP[3; C+ | COL] >0)>ChrPos, ChrNeg, NumPos , NumNeg 

ChrPos:-0 , R-S4>Z[,;C] 

ChrNeg:-0, R+S¥>Z[; C] 

NumPos:-0, Re 4>Z[; C] 

NumNeg: R-¥>Z[;C] 


Aclose 
OWA-OSVR™'Cz' '‘Dz' Q Close file, retract Cz, Dz 


RCeadelete F 
Cze* BL." FF A Delete file F 
RC+Cz Q RC: AP210 return code 


ReA Ofv B;0I0;Cz;Dz;E;F 

fe) 

Q Emulation of APL2/370 aFV built-in function using AP210 

Q modified to speed up UEdit (original in IBM's FILES workspace) 
Q 


~AsharelAEl 
~((OTO-R-0)=ONC 'A')pa3 
Q 
Q Write 
Q 
~(A/0 2#Eeadelete B)paE2 Q Delete existing file if any 
~(0#E+Awopen B,',D')pAE2 Q@ Open new file for writing 
Fe(BeO),2+[/€p A Q Max. record length 
41:+(B2pA)p0 
Dz~((-(%' '=E)210)LE+B>A) ,OTC(L1 2] Q Write each record in turn 
Cz-5 ,F 
4+F+ (0#1TE+Cz) pAE2 
~A1, BeBt1 
Q 
Q Read 
Q 
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21] 
22) 
23] 
24] 
25] 
26] 
27] 
28] 
29] 
30] 
31] 
32] 
33] 
34] 


0] 
1] 
2) 
3] 
4] 
5] 
6] 
7] 
8] 
9] 
10] 
11] 
12] 


0) 
1] 
2] 
3] 


0) 
1] 
2] 


0] 
1] 
2) 


0) 
1] 
2) 


0] 
1] 
a3 


43:+(0#TE+aropen B,' ,D')psE2 QR Open file for read 

Re" a Init result variable 

Be Ox Fe 128 A Init counter xrecords, scan length 
44: CzW4 
45:+((745 ~44=TE) ,O#TE+Cz)/A6,A7 , AE2 


R-R,<(-($' '=E)10)LE-"21Dz 
~A4 , Be Bt+1 

46:70,pR+(-(OAF 26)=Tt-1TR)IR 
47:7(65400=F)paE3 

745, Cz~4,B,F-65400(2xF A Double scan length 
A 
4E1:70,p9Cs~-11,1,0pCs-2,5,0pDs~'AP210 not active' 
4E2:70,pCs-11,1,0pCs+2,5,0pDs*'AP210 error: ',4ap210[-1+1/E;] 
4E3:Cs-11,1,0pCs-+2,5,0pDs-~'Invalid file' 


Q Read each record in turn 


QR Remove EOF record (if there) 


RCeAprint V,X 
A 

QR Send output stream to AP81 
QA RC: O - OK, 1 - AP81 missing 
fe) 

OWaA-81 OSvoO 'X' 

~(2#0SVO 'X')paErr 


X-3V 

OWA+DSVR 'X' 

~RC-O 
Q 
AErr:Cse11,1,0pCs-2,5,0pDs~'AP81 is not active' 
RC+-1 


Zr-Areadv;RC 


Cz-4 QA Read record 
@((RC+Cz)€-44 ~46)/'EC+0O' a from variable 

Z-RC Dz A length file 
RCeAropen F 

Cie" fh," oF A Open file for Read Only 
RC-Cz QA RC: AP210 return code 
RC-Ashare 

RC-210 DSVO"'Cz' 'Dz' A Share global variables Cz, Dz with AP210 
RC+2=USVO 'Cz' Q RC: 1 - ok, O - error 
RCrAwopen F 

Cz~'IwW,',F Q Open file for Read/wWrite 
RC-Cz Q RC: AP210 return code 


RCeAwritev A 


Cz-5 ,OpDzrA QA Write record A to 
RC+Cz A variable length file 
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